send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

ProgressBar al estilo Windows 95

  • 0 Respuestas
  • 1406 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:38:02 pm »
Este código sirve para simular una ProgressBar al estilo Windows 95 en un control PictureBox. Espero les guste, ya que sólo con cambiar el ForeColor del PicBox cambian el color de la barra y su texto, también si ponen el Pic en Flat y a Fixed Single toma una apariencia bastante atractiva, cosa que el ProgressBar de los Common Controls no trae:

Código: Visual Basic
  1. Sub SimPGB(pctBox As PictureBox, PercentValue As Single, Optional Caption, Optional Horizontal As Boolean = True)
  2.     Dim strPercent As String
  3.     Dim intX As Integer
  4.     Dim intY As Integer
  5.     Dim intWidth As Integer
  6.     Dim intHeight As Integer
  7.     Dim intPercent As Single
  8.     On Error GoTo ErLg
  9.  
  10.     If pctBox Is Nothing Then Error 5
  11.  
  12.     pctBox.AutoRedraw = True
  13.     pctBox.BackColor = vbWhite
  14.  
  15.     intPercent = Int(100 * PercentValue + 0.5)
  16.  
  17.     If PercentValue < 0 Or PercentValue > 1# Then Error 5
  18.  
  19.     If IsMissing(Caption) = True Then
  20.         strPercent = Format$(intPercent) & "%"
  21.         intWidth = pctBox.TextWidth(strPercent)
  22.         intHeight = pctBox.TextHeight(strPercent)
  23.     Else
  24.         intWidth = pctBox.TextWidth(Caption)
  25.         intHeight = pctBox.TextHeight(Caption)
  26.     End If
  27.  
  28.     intX = pctBox.Width / 2 - intWidth / 2
  29.     intY = pctBox.Height / 2 - intHeight / 2
  30.  
  31.     pctBox.DrawMode = 13
  32.     pctBox.Line (intX, intY)-(intWidth, intHeight), pctBox.BackColor, BF
  33.  
  34.     pctBox.CurrentX = intX
  35.     pctBox.CurrentY = intY
  36.  
  37.     If IsMissing(Caption) = True Then
  38.         pctBox.Print strPercent
  39.     Else
  40.         pctBox.Print Caption
  41.     End If
  42.  
  43.     pctBox.DrawMode = 10
  44.  
  45.     If Horizontal = True Then
  46.         If PercentValue > 0 Then
  47.             pctBox.Line (0, 0)-(pctBox.Width * PercentValue, pctBox.Height), pctBox.ForeColor, BF
  48.         Else
  49.             pctBox.Line (0, 0)-(pctBox.Width, pctBox.Height), pctBox.BackColor, BF
  50.         End If
  51.     Else
  52.         If PercentValue > 0 Then
  53.             pctBox.Line (0, pctBox.Height)-(pctBox.Width, pctBox.Height - (pctBox.Height * PercentValue)), pctBox.ForeColor, BF
  54.         Else
  55.             pctBox.Line (0, pctBox.Height)-(pctBox.Width, pctBox.Height), pctBox.BackColor, BF
  56.         End If
  57.     End If
  58.    
  59. Exit Sub
  60. ErLg: Error Err.Number
  61. End Sub
« Última modificación: Mayo 12, 2014, 03:17:24 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1307
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como Guardar datos en el registro de Windows

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1343
Último mensaje Julio 26, 2010, 11:03:30 am
por ANTRAX
Biblioteca de Apis de Windows

Iniciado por alexander1712

Respuestas: 23
Vistas: 10554
Último mensaje Enero 26, 2013, 02:41:25 am
por alexander1712
Detener Apagado de Windows...

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1232
Último mensaje Julio 26, 2010, 11:46:39 am
por ANTRAX
Como Utilizar un ProgressBar

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1469
Último mensaje Julio 26, 2010, 11:07:08 am
por ANTRAX