Discussion :

[bubu92]

Bonjour a tous ,

pourquoi ceci ne fonctionne pas ?
Quand on appui sur le bouton pendant la boucle, il memorise l'appui
et l'execute à la fin de la boucle.
Pour voir, j'ai remplacé la boucle par un appel à une Api qui prend du temps,
c'est pareil.
Quelqu'un aurait-il un autre moyen pour bloquer le Mouse_Click ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim a
Dim b
 
Command1.Enabled = False
 
For a = 1 To 5000000
    b = Sin(a)
    b = b Mod a
Next a
 
Command1.Enabled = True

[SfJ5Rpw8]

rajoute un doEvents avant de passer enabled à true :

Code :

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

1
2
3
4
5
 
....
doEvents
Command1.Enabled = True
..

[bubu92]

Je n'comprends pas pourquoi ça marche avec un "DoEvents" en plus,
mais ça fonctionne. Merci