PROGRESSBAR
Tenho um form de apresentação comandado por timer no meu programa. Este form fica aberto durante alguns segundos e depois abre o formulário principal. Gostaria de saber como colocar um progressbar no formulário de apresentação. Não sei que rotina inserir no progressbar para que ele se preencha à  medida que o tempo de exposiçao se aproxima do limite estabelecido pelo timer.
Agradeço qualquer ajuda....
Agradeço qualquer ajuda....
Acho que com este exemplo você irá entender melhor o funcionamento, eu também já fiz esta pergunta neste forum no ano passado e faço questão de compartilhar o conhecimento.
Private Sub Form_Load()
ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 10
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value < 10 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
Timer1.Enabled = False
Form2.Show
Unload Me
End If
End Sub
Espero ter ajudado
Private Sub Form_Load()
ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 10
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value < 10 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
Timer1.Enabled = False
Form2.Show
Unload Me
End If
End Sub
Espero ter ajudado
Tiago
Vc testou o código q enviei?
ele está meu tosco mas funciona...
roda ele só pra vc ver como funciona, daà vc vai entender melhor o processo...
Até...
Vc testou o código q enviei?
ele está meu tosco mas funciona...
roda ele só pra vc ver como funciona, daà vc vai entender melhor o processo...
Até...
Tópico encerrado , respostas não são mais permitidas