USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Menu/Toobar/Coolbar)

Título da Dica:  Barra de Prograsso com contador de porcentagem
Postada em 5/4/2006 por Rinaldo      Clique aqui para enviar email para o autor  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+
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página