Postada em 12/07/2004 17:23 hs
- Coloque um Timer no seu Form
- na Propriedade Timer1.Interval deixe 100
- na Propriedade Timer1.Enabled deixe False
- na função que inicia a Barra escreva:
Timer1.Enabled = True
- No evento Timer1_Timer escreva
ProgressBar.Value = ProgressBar.Value + 1
if ProgressBar.Value = 100 then Timer1.Enabled = False
________________________ Té + Que NIMB role bons Dados! 
|
