fonction ,command et raccourcis

Version imprimable

26/11/2008, 16h31
bauhaus

fonction ,command et raccourcis

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
26/11/2008, 17h20
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)
26/11/2008, 17h26
bauhaus

Citation:

Envoyé par 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)

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

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:

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

Citation:
Envoyé par 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:

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à..

26/11/2008, 18h23
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:

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 ...

Maintenant :

Mon code précédent te protégeait également des clics intempestifs rapprochés.
Si la seule chose que tu crains est le gros doigt qui s'endort sur la touche G, voilà une autre méthode :

Code:

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
28
29
30
31
Private censeur As Boolean
 
Private Sub Command1_Click()
 voyons
End Sub
 
Private Function voyons() As String
  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
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If censeur Then Exit Sub
  censeur = Not censeur
  If KeyCode = vbKeyG Then voyons
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  censeur = Not censeur
End Sub

Bien que cette méthode-là te paraîtra plus simple, elle ne te protège que des "gros doigts" et pas des fous furieux qui cliqueraient à tire-larigot ...

26/11/2008, 19h14
bauhaus
Citation:
Envoyé par 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:

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 ...
effectivement la fonction est relativement rapide 2 seconde c'est long..

je liste quatre repertoires j'affiche 4 images et 4 listbox

j'ai une erreur avec wend "erreur when sans while"
26/11/2008, 19h47
ucfoutu

Citation:

Envoyé par bauhaus

effectivement la fonction est relativement rapide 2 seconde c'est long..

je liste quatre repertoires j'affiche 4 images et 4 listbox

j'ai une erreur avec wend "erreur when sans while"

Excuse : j'ai écrit à main levée.

Remplace tout simplement Wend par Loop... (mais tu aurais pu le faire toi-même sans revenir avec une telle question, non ?... Il n'est pas bon de se contenter de faire comme l'oiselet qui attend la becquettée... il faut participer un peu...)
26/11/2008, 19h59
bauhaus

Citation:

Envoyé par ucfoutu

Excuse : j'ai écrit à main levée.

Remplace tout simplement Wend par Loop... (mais tu aurais pu le faire toi-même sans revenir avec une telle question, non ?... Il n'est pas bon de se contenter de faire comme l'oiselet qui attend la becquettée... il faut participer un peu...)

surtout que tu l'avais ecrit juste avant..

merci à toi en tout cas cela fonctionne

Bauhaus