ProgressBar al estilo Windows 95

  • 0 Respuestas
  • 3156 Vistas

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

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5703
  • Actividad:
    20%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

ProgressBar al estilo Windows 95

  • 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 »


 

Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2185
Ú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: 2265
Último mensaje Julio 26, 2010, 11:03:30 am
por ANTRAX
Detener Apagado de Windows...

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2475
Último mensaje Julio 26, 2010, 11:46:39 am
por ANTRAX
Biblioteca de Apis de Windows

Iniciado por Tulkalex

Respuestas: 23
Vistas: 16123
Último mensaje Enero 26, 2013, 02:41:25 am
por Tulkalex
Como Utilizar un ProgressBar

Iniciado por ANTRAX

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