|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Menu/Toobar/Coolbar)
|
|
 |
Título da Dica: Barra de Prograsso com contador de porcentagem
|
 |
|
|
|
Postada em 5/4/2006 por Rinaldo
draimunde@yahoo.com.br
Insira em um Form:
1 Shape (Shape1): BackColor = Azul e BorderStyle = Nehuma
1 Shape (Shape2): BackStyle = Transparente
1 Label (Label1): ForeColor = Branco
1 Timer (Timer1): Interval = 10
Insira o seguinte código no Form:
Dim i As Integer
Private Sub Timer1_Timer()
Shape1.Width = i
If i >= Me.Width - 220 Then
i = 0
Timer1.Interval = 0
Else
x = (Me.Width - 220) / 100
Label1.Caption = (Int(i / x) + 2) & "%"
i = i + 100
End If
End Sub
Private Sub Form_Load()
i = 0
Shape1.Top = 10
Shape1.Left = 10
Shape1.Width = 1
Shape2.Width = Me.Width - 200
Shape2.Height = Shape1.Height + 30
Label1.Top = 40
Label1.Left = (Me.Width - Label1.Width) / 2
End Sub
Observem que coloquei um timer para realizar a contagem de porcentagem e o preenchimento da barra. Para usar em uma aplicação, vocês devem substituir o componete Timer pelo seu próprio controle ou função.
T+
|
|
|
|
|
