Leandro Bueno
não registrado
|
|
Postada em 08/04/2005 11:30 hs
Ola pesooal,
Qual é o componente que eu uso para inserir um progressbar no meu projeto?
Como eu faço para usar uma progress bar?
Alguém pode me dar uma explicação básica.
Agradeço desde já.
|
|
|
|
|
|
Jayme
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 08/04/2005 12:18 hs
Adicione este componente em seu projeto: Microsoft Windows Common Controls 6.0(SP6) Exemplo de uso: Dim x As Long
Dim y As Long x = 1
y = RS_Tabela.RecordCount ProgressBar1.Min = x
ProgressBar1.Max = y If y > 0 Then
RS_Tabela.MoveMin
Do While Not RS_Tabela.EOF
ProgressBar1.Value = x
x = x + 1
RS_Tabela.MoveNext
Loop
End If
Jayme |
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 08/04/2005 12:29 hs
Valeu Jaime vou dar umas mexidinhas aqui |
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 11/04/2005 18:21 hs
Não entendi muito com esse exemplo.. Alguém tem um exemplo melhor? |
|
|
|
|
|
Postada em 12/04/2005 03:16 hs
Um exemplo bem simples
Precisamos de um ProgressBar(chamado PBar). Nas propriedades coloque Min=0 e Max=30
Um controle Timer(chamado Timer), nas propriedades coloque Interval = 200
Depois de colocá-los no form
Private Sub Timer_Timer()
If PBar.Value < 100 Then
PBar.Value = PBar.Value + 1
End If
End Sub
--------------------------------------
Screech 
"Programar é arte..."
|
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 19/04/2005 11:53 hs
Valeu amigo screech, agora entendi. |
|
|
|
