Discussion :

[eliek_9]

Salut tout le monde,

je voudrai que ma form ne reçoit plus d'événements pendant un certain temps (sleep), j'ai fait form.disabled=true et pendant le temps de sleep j'ai cliqué sur des boutons (disabled) existant sur ma form, les evenemnts se sont produits apres le temps de sleep malgré que les boutons etaient disabled.

Merci d'avance

[Ribéry]

J'peux voir le code que t'as mis??

[sovo]

je voudrai que ma form ne reçoit plus d'événements pendant un certain temps

et si tu mettais plustot enabled=false ??

et puis un peut de code ne serais pas de refus

[zazaraignée]

J'peux voir le code que t'as mis??

+1

[jmfmarques]

Et moi, je voudrais savoir pourquoi il ne nous parle pas de l'erreur dénoncée pour :

form.disabled=true

à moins qu'il n'ait fait précéder cette "syntaxe" par un

On error resume next

Il y a là un certain abus ... pour ne pas dire un abus certain !

[eliek_9]

Bon merci à tous ceux qui m'ont répondu, j'ai pu résoudre l'erreur

Désolé

Ciao

[jmfmarques]

Eliek 9 !
Si tu n'exposes pas ici quelle était cette erreur....

Ne t'attends plus à recevoir d'aide, du moins de ma part (les autres feront ce qu'ils voudront...)

[sovo]

Ne t'attends plus à recevoir d'aide, du moins de ma part (les autres feront ce qu'ils voudront...)

tout comme moi, car ta contribution, c'est sur, aidera d'autre. Ce qui est le but de ce forum.

[eliek_9]

Bon d'accord, c'est une chose un peu difficile à expliquer.
Le problème c'etait que ma fonction attend qu'elle reçoit une réponse pour qu'elle débloque la form donc j'ai fait un timler qui débloque la forme comme ça l'appel à l'autre événement disparait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub PB_Pret_Click()
 
 
1675 On Error GoTo PB_Pret_Click_Error
    ' trace de debug
 
1676 SvrCommCTLLog.logDebug (GetStrDebug("PB_Pret_Click"))
 
    'bloquer la form puis la débloquer après avoir recu la réponse
1677 Call formBlock
 
 
1678 lClient.Parent.AgentAvailable
 
1679 tmrUnblock.Enabled = True
 
1680 On Error GoTo 0
1681 Exit Sub
 
PB_Pret_Click_Error:
 
1682 SvrCommCTLLog.logError (GetStrError("Sub", "PB_Pret_Click", "IHM", "Feuille", Err.Description, Err.Number, Erl))
1683 Err.Clear
End Sub

[Ribéry]

Avec les balises de code c'est mieux...