Discussion :

[bauhaus]

Bonjour,

Je suis en vb6, j'utilise un command pour lancer une fonction (en fait je la lance quatres fois)...

J'ai un raccourcis clavier qui appel la commande "call command_click", mais j'ai un soucis.

Si je fais un appui prolongé sur la touche de raccourcis ou que j'appuis plusieurs fois assez vite ca rame, je voudrais lancer le traitement de la fonction, qu'elle se termine et ensuite la relancer.

merci à vous

bauhaus

[ucfoutu]

Bonjour,

Quelle méthode utilises-tu pour cette touche de raccourci (code et lequel ou autre) ? (la réponse sera différente selon le cas de figure)

[bauhaus]

Bonjour,

Quelle méthode utilises-tu pour cette touche de raccourci (code et lequel ou autre) ? (la réponse sera différente selon le cas de figure)

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
..
If KeyCode = vbKeyG Then Call cmdNext_Click
..
End Sub

[ucfoutu]

Bonjour,

tu n'appeles pas là une fonction ! Tu déclenches un évènement click !

Je te suggère alors :
-de mettre le code le ton évènement Click dans une fonction ou une procédure toto
- d'appeler toto depuis l'évènement Click en question
- d'appeler toto lorsque tu utilises ton raccourci
- d'utiliser une variable booléenne static pour forcer la main à ta fonction ou procédure

Exemple : un bouton Command1 et un Label (pour voir) Label1

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
25
26
27
Private Sub Command1_Click()
 voyons
End Sub
 
Private Function voyons() As String
  Static pas_permis As Boolean
  If pas_permis Then Exit Function
  pas_permis = True
  Dim i As Long
  For i = 1 To 100
   i = i * 2
   Label1.Caption = i
   '=================================
   ' n'est là que pour te permettre de conster que si tu cliques à nouveau
   'avant la fin de la fonction, tu ne la relances pas
   depart = Timer
   '============================
   Do While Timer < depart + 1
     DoEvents
   Loop
  Next
  pas_permis = False
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyG Then voyons
End Sub

[bauhaus]

Bonjour,

tu n'appeles pas là une fonction ! Tu déclenches un évènement click !

Je te suggère alors :
-de mettre le code le ton évènement Click dans une fonction ou une procédure toto
- d'appeler toto depuis l'évènement Click en question
- d'appeler toto lorsque tu utilises ton raccourci
- d'utiliser une variable booléenne static pour forcer la main à ta fonction ou procédure

Exemple : un bouton Command1 et un Label (pour voir) Label1

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
25
26
27
Private Sub Command1_Click()
 voyons
End Sub
 
Private Function voyons() As String
  Static pas_permis As Boolean
  If pas_permis Then Exit Function
  pas_permis = True
  Dim i As Long
  For i = 1 To 100
   i = i * 2
   Label1.Caption = i
   '=================================
   ' n'est là que pour te permettre de conster que si tu cliques à nouveau
   'avant la fin de la fonction, tu ne la relances pas
   depart = Timer
   '============================
   Do While Timer < depart + 1
     DoEvents
   Loop
  Next
  pas_permis = False
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyG Then voyons
End Sub

je viens de tester mais le probléme si je place mes appels de fonction

a la place de depart = Timer

la fonction voyon me lance plusieur fois les fonctions

je ne sais pas si je suis clair là..

[ucfoutu]

C'est clair !

Mais cela veut dire que ta fonction tourne et se termine très vite et que tu aurrais alors le même problème en cliquant plusieurs fois de suite sur cOMMAND1 !!! (plus rien à voir avec ton seul raccourci).

Remède : interdire le déroulement de la fonction lancée avant un délai d'attente "raisonnable" (2 secondes, par exemple)
A la fin de ta fonction (juste avant le pas_permis = False) tu ajoutes tout bêtement

Code :

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

1
2
3
4
Depart = Timer
Do while timer < depart + 2 'pour attendre 2 secondes)
  doevents
Wend

Il est maintenant clair que si tu recliques après 2 secondes, ou que tu laisses ton doigt sur la touche G plus de 2 secondes, la fonction se relancera ...
Tu peux décider de la durée d'attente .... si tu veux ...