AJUDA COM CLICAR NO BOTAO AUTOMATICO

ELUANCARDOSO 07/08/2011 14:38:19
#381007
bem.. eu fiz um atalho assim



bem ele tem os 8 botoes ..
ai tem um botao que eu queria que executasse os 8 automaticamente.
mais queria que ele executasse cada botao em 30 segundos.. como posso fazer isso?
KURTGU 08/08/2011 01:22:45
#381022
coloca dentro de um timer....
FEDERHEN 08/08/2011 08:42:19
#381030

Command1_Click
subTempo (30)
Command2_Click
subTempo (30)
Command3_Click
subTempo (30)
Command4_Click
subTempo (30)
Command5_Click
subTempo (30)
Command6_Click
subTempo (30)
Command7_Click
subTempo (30)
Command8_Click


Private Sub subTempo(ByVal IntervaloSegundos As Integer)
Dim Inicial As Long
Dim Final As Long
Inicial = Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 1, 2)) * 60 * 60
Inicial = Inicial + Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 4, 2)) * 60
Inicial = Inicial + Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 7, 2))
Final = Inicial
Do While (Final - Inicial) < IntervaloSegundos
Final = (Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 1, 2))) * 60 * 60
Final = Final + (Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 4, 2))) * 60
Final = Final + Val(Mid(Format(Now, [Ô]hh:mm:ss[Ô]), 7, 2))
Loop
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar