Discussion :

[Zodiark]

Bonjour à tous,

Je débute en vb (soyez indulgent ) et je voulais faire une pause dans un de mes script.
Google -> Developpez.com -> FAQ et hop je pensais en avoir fini.

Mais en fait dès que je fait un sleep, il fonctionne mais trop tôt !! ^^

C'est a dire qu'il s'effectue avant toutes actions censé être plus tôt.
Par exemple pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
MsgBox("A")
sleep(3000) 'ou threading.thread.sleep(3000) ou tout autre tentative
MsgBox("B")

Avec ça j'attends 3seconde puis A s'affiche puis B s'affiche.
J'essaye en fait d'afficher mon Form1 et le faire disparaître aprés quelques seconde, puis de gérer avec des pauses son affichage avec "visible".

Merci à ce qui se pencheront sur mon cas.

[ProgElecT]

Salut

moi je fais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Retard(Tempo As Long)
Dim Fini As Long
Fini = Timer + Tempo
Do: DoEvents: Loop Until Timer > Fini
End Sub
 
Private Sub Form_Load()
MsgBox ("A")
'sleep (3000) 'ou threading.thread.sleep(3000) ou tout autre tentative
Retard 3 '3 secondes
MsgBox ("B")
End Sub

[OhMonBato]

+1, mais juste pour pinailler, si on veut que ça fonctionne aussi autour de minuit, on peut modifier comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Retard(Tempo As Long)
Dim TempsDepart As Long
TempsDepart = Timer
Do
  DoEvents
  'Test de passage à minuit, 86400 secondes dans 24h
  If Timer - TempsDepart < 0 Then TempsDepart = TempsDepart - 86400
Loop Until Timer > TempsDepart + Tempo
End Sub

[Zodiark]

Désolé j'ai omis de précisé que je travailler sous VS2010 ?! (je sais pas si c'est du à ça mais ) ton code n'est pas compatible, j'ai tenté de remplacer par quelques propriétés, mais j'ai pas réussi à le faire fonctionner, le timer reste toujours souligner par exemple (malgrès que je vois une propriété timer existante.

Cependant tu m'a donnée l'idée de faire pareil mais en récupérant le Now().

Merci d'avoir répondu.

[EDIT] : OhMonBato c'est vrai que j'ai également besoi que ca marche à minuit puisque le script sera prévu pour tourner tout le temps sur un serveur.

[EDIT2] Pour dire a quel point je débute. Je viens d'apprendre que je faisait du VB.NET =) je pensais faire du vb6 ou vb tout court.


J'ai résolu mon probleme en attribuant le sleep a un évènement que je déclenche quand je veux (par exemple une modification de label).
Je suppose que ce n'est pas propre mais bon...