COMO UTILIZAR UM LABEL SIMULANDO O PROGRESS BAR
Caros, alguém saberia me dizer se a possibilidade de ao invés de se utilizar o progress bar usar um label ou um picture box para simular uma barra de progressão.
Huber,
Tenta colocar o refresh dentro do loop.
Olha este exemplo:
Private Sub Form_Click()
For n = 1 To 1000000
Label1.Caption = n & "/1000000"
Label1.Refresh
Next
End Sub
Tenta colocar o refresh dentro do loop.
Olha este exemplo:
Private Sub Form_Click()
For n = 1 To 1000000
Label1.Caption = n & "/1000000"
Label1.Refresh
Next
End Sub
Caro, desta maneira estou mostrando determinado número de registro, gostaria de mostrar a progressão no label ou picture box mudando a cor. tipo o progress bar mesmo, tipo um label com fundo branco por exemplo ir preenchendo de preto.
Acredito não ser possÃvel, pois o label não é adaptado para isso.
E PQ não usar um progressbar, já que é um componente do próprio vb??
E PQ não usar um progressbar, já que é um componente do próprio vb??
Oh huber,
A) Aquilo foi só um exemplo de aplicação do uso do Refresh, por isso eu coloquei um número astronà 'mico.
B)Aqui, você nunca vai receber o código de bandeja
C)Você está inventando a roda, como disse o outro usuário, tem o progressbar.
Até mais,
A) Aquilo foi só um exemplo de aplicação do uso do Refresh, por isso eu coloquei um número astronà 'mico.
B)Aqui, você nunca vai receber o código de bandeja
C)Você está inventando a roda, como disse o outro usuário, tem o progressbar.
Até mais,
Huber tenta mais ou menos assim.........coloca uns 3 labels e deixa todos com a propriedade visible = false ae na hora q inicia o programa faz assim dentro de timer:
Private Sub Timer1_Timer()
If Label1.Visible = False Then
Label1.Visible = True
ElseIf Label1.Visible = True And Label2.Visible = False Then
Label2.Visible = True
ElseIf Label1.Visible = True And Label2.Visible = True And Label3.Visible = False Then
Label3.Visible = True
End If
End Sub
So q inves d ficar usando Label1.caption vc pode usar variaveis seila ae vc q escolhe
Private Sub Timer1_Timer()
If Label1.Visible = False Then
Label1.Visible = True
ElseIf Label1.Visible = True And Label2.Visible = False Then
Label2.Visible = True
ElseIf Label1.Visible = True And Label2.Visible = True And Label3.Visible = False Then
Label3.Visible = True
End If
End Sub
So q inves d ficar usando Label1.caption vc pode usar variaveis seila ae vc q escolhe
Tópico encerrado , respostas não são mais permitidas