A voir également:
- Décompte avant une instruction
- "Le code à recopier et à mettre sur votre site avant de commencer" - Forum PHP
- Recopier le contenu d'un pointeur - Forum Delphi / Pascal
- Apercu avant impression - Forum Visual Basic 6
- Instruction incorrecte à l'extérieur d'une procédure - Forum Visual Basic
- Problème avec une instruction VBA ✓ - Forum Visual Basic 6
5 réponses
Salut,
C est un peu tordu mais ça ne fait pas appel aux API et je me suis déjà servi d'un truc similaire :
Sub attendunpeu()
MsgBox ("DEBUT")
currentsec = Mid$(Time$, 7, 2) + 3 If currentsec >60 Then currentsec currentsec - 60
Do Until Mid$(newsec, 7, 2) = currentsec
newsec = Time$
Loop
MsgBox ("FIN")
End Sub
Ca t'inspire ?
@+
C est un peu tordu mais ça ne fait pas appel aux API et je me suis déjà servi d'un truc similaire :
Sub attendunpeu()
MsgBox ("DEBUT")
currentsec = Mid$(Time$, 7, 2) + 3 If currentsec >60 Then currentsec currentsec - 60
Do Until Mid$(newsec, 7, 2) = currentsec
newsec = Time$
Loop
MsgBox ("FIN")
End Sub
Ca t'inspire ?
@+
Annule et remplace, j ai oublié qqchose :
Sub attendunpeu()
MsgBox ("DEBUT")
currentsec = Mid$(Time$, 7, 2) + 3 If currentsec >60 Then currentsec currentsec - 60
newsec = Time$
Do Until Mid$(newsec, 7, 2) = currentsec
newsec = Time$
Loop
MsgBox ("FIN")
End Sub
@+
Sub attendunpeu()
MsgBox ("DEBUT")
currentsec = Mid$(Time$, 7, 2) + 3 If currentsec >60 Then currentsec currentsec - 60
newsec = Time$
Do Until Mid$(newsec, 7, 2) = currentsec
newsec = Time$
Loop
MsgBox ("FIN")
End Sub
@+
merci de m'avoir aidé ma y'a comme un problème. j'ai mis ce code dans la partie load de ma 1ere feuille, en remplacant Msbox ("debut")
par
form1.show
et en remplacant
Msgbox ("Fin")
par
form2.show
hide
le probleme est que la 1ere feuille ne s'affiche pas, mais la 2eme apres 3 seconde oui. est-ce que tu a une solution ?
par
form1.show
et en remplacant
Msgbox ("Fin")
par
form2.show
hide
le probleme est que la 1ere feuille ne s'affiche pas, mais la 2eme apres 3 seconde oui. est-ce que tu a une solution ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
