Moritus
Messages postés130Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention23 novembre 2011
-
23 déc. 2008 à 15:48
Moritus
Messages postés130Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention23 novembre 2011
-
23 déc. 2008 à 16:54
Bonjour,
dans mon code j'ai un do : loop qui attend soit un chagement dans un registre du port parallele ou qu'une variable (booleen) change.
lorsqu'une des condition est vrai ma loop ce terminer..
le problème est que lorsque j'entre dans ma loop, mon appli. ne répond plus, je ne peut plus appuyer sur aucun bouton etc... mais ma loop voit les changement dans le port parallele est ce terminer..sans redonner les controls a mon appli..
Private Sub wait_for_action()
Timer_showOffre.Enabled = True
Dim byte1, byte2
'Flash une shape
If mainForm.shpFlasher.BackColor = &HFF& Then
mainForm.shpFlasher.BackColor = &HFF00&
Else
mainForm.shpFlasher.BackColor = &HFF&
End If
'-----------------------
If byte1 = "1" Then
mainForm.shpFlasher.BackColor = &HFF00&
Exit Do
Else
If byte2 = 1 Then
mainForm.shpFlasher.BackColor = &HFF&
lstOffre.AddItem actualOffre
Exit Do
Else
End If
End If
Loop Until lquit = True
If lquit = True Then
mainForm.shpFlasher.BackColor = &H8000000F
lquit = False
Else
End If
lesdis
Messages postés403Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention 7 août 2020 23 déc. 2008 à 16:26
Bonjour,
Il manque sûrement une instruction DoEvents dans ta boucle afin que l'application traite tous les messages Windows présents dans la file d'attente de messages.