PROGRESSBAR
Private Sub Timer1_Timer()
On Error Resume Next [ô]Coloquei para ir na marra.
[ô]ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = 180
Me.Caption = ProgressBar1 + 1 & [Ô]Segundo Completados[Ô]
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Max Then
Form3.Show
Timer1.Enabled = False
Else
End If
End Sub
Este do ADILSOO também da certo,porém tem que usar Timer1.Enabled = False.Se não colocar não vai conseguir fechar o Form.
Private Sub Timer1_Timer()
Label2.Caption = ProgressBar1
If ProgressBar1 = 180 Then
[ô]Carregue aqui seu form
Timer1.Enabled = False
Else
ProgressBar1 = ProgressBar1 + 1
End If
End Sub
On Error Resume Next [ô]Coloquei para ir na marra.
[ô]ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = 180
Me.Caption = ProgressBar1 + 1 & [Ô]Segundo Completados[Ô]
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Max Then
Form3.Show
Timer1.Enabled = False
Else
End If
End Sub
Este do ADILSOO também da certo,porém tem que usar Timer1.Enabled = False.Se não colocar não vai conseguir fechar o Form.
Private Sub Timer1_Timer()
Label2.Caption = ProgressBar1
If ProgressBar1 = 180 Then
[ô]Carregue aqui seu form
Timer1.Enabled = False
Else
ProgressBar1 = ProgressBar1 + 1
End If
End Sub
Sim Omar, mas a ideia é fazer funcionar né, nesse caso fica a critério dele se o form for permanecer aberto ou fechado, a hora que completar o tempo simplesmente ele poe um
ou
ou como voce mesmo disse
De qualquer um dos métodos funcionará sem problema nenhum, abracos.
Timer1.Interval = 0 ou
Unload Me ou como voce mesmo disse
Timer1.Enabled = False De qualquer um dos métodos funcionará sem problema nenhum, abracos.
Bom dia amigos e colaboradores deste forum!
Obrigado pela ajuda de todos, nossa quanto exemplo, bacana mesmo pela atenção!
Vou testar os fontes mencionados ultimamente e vejo qual me adapto melhor.
Um grande abraço a todos.
Gilberto
Obrigado pela ajuda de todos, nossa quanto exemplo, bacana mesmo pela atenção!
Vou testar os fontes mencionados ultimamente e vejo qual me adapto melhor.
Um grande abraço a todos.
Gilberto
Qualquer coisa posta aÃ, até.
Olá amigos deste fórum!
Obrigado pela resposta, minha dúvida foi solucionada. Os últimos posts funcionaram como o esperado. Gostei do exemplo do Marcelo Treze, pois deu para adaptar um contador regressivo. O exemplo do Adilsoo bem simples e funcional, era isso mesmo. Do Omar também funcionou, também simples e funcional. Agradeço a todos os colegas e colaboradores deste fórum em estar tirando nossas dúvidas. Infelizmente ao encerrar um tópico temos que indicar um amigo, e acho errado isso do fórum em indicar SOMENTE UM, pois todos mostraram-se interessados em ajudar. Obrigado a todos, mas vou levar em conta o amigo Adilsoo pois teve um número maior de participação em busca do resultado esperado, não desmerecendo ninguém, pelo contrário todos são merecedores. Sucesso a todos nós!
Obrigado pela resposta, minha dúvida foi solucionada. Os últimos posts funcionaram como o esperado. Gostei do exemplo do Marcelo Treze, pois deu para adaptar um contador regressivo. O exemplo do Adilsoo bem simples e funcional, era isso mesmo. Do Omar também funcionou, também simples e funcional. Agradeço a todos os colegas e colaboradores deste fórum em estar tirando nossas dúvidas. Infelizmente ao encerrar um tópico temos que indicar um amigo, e acho errado isso do fórum em indicar SOMENTE UM, pois todos mostraram-se interessados em ajudar. Obrigado a todos, mas vou levar em conta o amigo Adilsoo pois teve um número maior de participação em busca do resultado esperado, não desmerecendo ninguém, pelo contrário todos são merecedores. Sucesso a todos nós!
Tópico encerrado , respostas não são mais permitidas