Discussion :

[gerart]

Bonjour,

Je voudrai pouvoir utiliser la touche Entrée sur une commandbutton à la place du click souris.
J'ai fais des recherche sur le web, il y aurait "acceptbutton", mais ca ne fonctionne pas.
Pouvez-vous m'indiquer si c'est possible en VB6 et si oui comment le faire.

Merci

[ProgElecT]

Salut gerart

Es tu sûr de programmer en VB6 et non en VB.net, en VBA, sinon vois ce lien, Comment savoir si l'on utilise VBA ou VB6 ?.
Si c'est bien du VB6 et antérieur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'************** le CommandButton doit avoir le focus *****************
Private Sub Command1_Click()
'le code suite au clique
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbEnter Then
    KeyAscii = 0
    Command1_Click 'si un code existe déjà dans la procédure ClicK
    'ou bien le code en réaction doit être ici
    Else
    'ne pas réagir
End If
End Sub

[DarkVader]

Bonjour,

Bonjour,

Je voudrai pouvoir utiliser la touche Entrée sur une commandbutton à la place du click souris.
J'ai fais des recherche sur le web, il y aurait "acceptbutton", mais ca ne fonctionne pas.
.../...

Normal, cela n'existe pas dans VB6

.../...Pouvez-vous m'indiquer si c'est possible en VB6 et si oui comment le faire.

Merci

Utiliser les propriétés TabStop et accessoirement Default

[ThierryAIM]

Comme dit Dark, je pense que c'est la propriété Default d'un commandbutton que tu cherches

[l_autodidacte]

Une autre solution est de passer par les APIs Windows(Proposition pour enrichir la discussion)

Code :

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

1
2
3
4
5
6
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                     (ByVal hwnd As Long, ByVal wMsg As Long, _
                                      ByVal wParam As Long, lParam As Any) As Long
Const BM_CLICK& = &HF5&
Dim lngRet As Long
lngRet = SendMessage(Command1.hwnd, BM_CLICK, 0&, 0&)

Ce code est à placer là où on a besoin d'invoquer le clic ou l'utilisation de la touche ENTRÉE

[gerart]

Bonsoir à tous,

Alors oui il s'agit bien de VB6.

ProgElecT, merci pour l'exemple que tu donnes, mais il est indiqué que le focus doit être sur le CommandButton. Or cela ne convient pas.

Utiliser les propriétés TabStop et accessoirement Default

Pourrais-tu être plus précis Dark, je suis novice en la matière.

l_autodidacte, je viens de voire ton message. Merci, mais j'avoue ne rien y comprendre.

[gerart]

Merci DarkVader

C'est bien la propriété default du contrôle CommandButton qu'il faut utiliser.

(c'est si simple quand on connait !)

[l_autodidacte]

A l'endroit de ton code où tu veux activer le clic sur le bouton CommandButton, place cette ligne(après avoir déclaré les éléments à utiliser) lngRet = SendMessage(Command1.hwnd, BM_CLICK, 0&, 0&) par exemple dans l'évènement KeyPress(comme l'a dit ProgElecT) de n'importe quel contrôle actif(qui a le focus) sur l'objet Form. Ce code simule l'évènement clic sans pour autant cliquer sur quoi que ce soit.

[DarkVader]

Merci DarkVader

C'est bien la propriété default du contrôle CommandButton qu'il faut utiliser.

(c'est si simple quand on connait !)

Tout VB est dans cette phrase 8)

A l'endroit de ton code où tu veux activer le clic sur le bouton CommandButton, place cette ligne(après avoir déclaré les éléments à utiliser) lngRet = SendMessage(Command1.hwnd, BM_CLICK, 0&, 0&) par exemple dans l'évènement KeyPress(comme l'a dit ProgElecT) de n'importe quel contrôle actif(qui a le focus) sur l'objet Form. Ce code simule l'évènement clic sans pour autant cliquer sur quoi que ce soit.

Tu prends une masse pour écraser une mouche, tu fais (presque) pareil avec Command1_Click/Command1_Click(Index)