Boucle n'interagit pas avec l'utilisateur.Résolu

Question

Bon il est vrai que le sujet n'est peut etre pas parlant, mais je vais vous expliquer.
Je suis actuellement sous vba access.
J'ai mon formulaire, contenant une pseudo progressbar (en fait 2 zones de textes superpos&#233; car mscomctl.ocx gerant la progressbar 6 desinscrivait le serveur ole)
Je fait evoluer ma progressbar comme ceci :

Public Sub progress()
DoCmd.OpenForm "attente"
For i = 0 To 2835
Sleep 10
Forms![attente]!progress1.Width = i
Forms![attente].RepaintIf i 1000 Or i 2000 Then
MsgBox "i=" & i
End If
Next i
End Sub

J'ai autoriser l'uilisateur a deplac&#233; mon formulaire. Or lorsque il y a clic dans mon form, la boucle continu mais il ne repaint plus mon form (il apparait qu'access ne repond plus) jusqu'au msgbox qui attend une interaction de l'utilisateur et fait repartir mon repaint. Je ne comprend pas la cause ni comment contrer cet effet.
Or dans l'appli finalis&#233; il n'y aura pas de msgbox car c'est pour un telechargement ftp.
Voila, je pense que c plus clair comme cela.
Humblement Phalalis

econs · Accepted Answer

Salut,

Ins&#233;re une instruction DoEvents apr&#232;s ton "Sleep 10".

Tu repasses alors la main &#224; Windows qui va redessiner ton contr&#244;le.





For i = 0 To 2835

Sleep 10

DoEvents

Forms![attente]!progress1.Width = i

Forms![attente].Repaint

[...]

Manu

Phalalis · Answer

Impecable, c pile poil ce qu'il fallait. Jte remercie manu, je n'ai pas l'habitude de me servir du doevents (en fait il ya de cela 2 mois jsavais meme pas que ca exist&#233;).
Franchement rien ne vaut l'entraide

Boucle n'interagit pas avec l'utilisateur.

2 réponses

Discussions similaires