Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic "Enter" dans un combobox??

"Enter" dans un combobox??

4 réponses
Avatar
Le J
SAlut,

J'essais de faire fonctionner un sous-menu lorsque l'utilisateur appuyera
sur "enter" dans un combobox.......
J'ai essayé ceci mais ce ne fonctionn pas...

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
REchErreur
End If
end sub

Autre solution??

Merci

Le J
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LE TROLL
Salut,

Si ça marche:

Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "le 13"
Exit Sub
End If
MsgBox "dif de 13 = " & KeyAscii
End Sub

Vois ta propriété "Style", on doit pouvor saisir dans le
combo...
----------------------


"Le J" a écrit dans le message de
news:
SAlut,

J'essais de faire fonctionner un sous-menu lorsque
l'utilisateur appuyera
sur "enter" dans un combobox.......
J'ai essayé ceci mais ce ne fonctionn pas...

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
REchErreur
End If
end sub

Autre solution??

Merci

Le J




Avatar
Le J
Salut,

ca marche seulement si je mets un point d'arret dessus aussitot que je fais
fonctionner le programme il se passe absolument rien.....

Autre solution??

Merci

ALP

Le J
"LE TROLL" <le a écrit dans le message de
news:
Salut,

Si ça marche:

Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "le 13"
Exit Sub
End If
MsgBox "dif de 13 = " & KeyAscii
End Sub

Vois ta propriété "Style", on doit pouvor saisir dans le
combo...
----------------------


"Le J" a écrit dans le message de
news:
> SAlut,
>
> J'essais de faire fonctionner un sous-menu lorsque
> l'utilisateur appuyera
> sur "enter" dans un combobox.......
> J'ai essayé ceci mais ce ne fonctionn pas...
>
> Private Sub Combo2_KeyPress(KeyAscii As Integer)
> If (KeyAscii = 13) Then
> REchErreur
> End If
> end sub
>
> Autre solution??
>
> Merci
>
> Le J
>
>




Avatar
LE TROLL
Re-salut,

Autre solution dis-tu... Ben il ne faut pas, si ça ne
fonctionne pas c'est à cause d'éléments extérieurs ou de
paramètres de l'objets, tu peu commencer par le tester tout
seul dans une applie nouvelle... Bref il faut trouver la
raison qui est extérieure à la procédure...
------------

"Le J" a écrit dans le message de
news:
Salut,

ca marche seulement si je mets un point d'arret dessus
aussitot que je fais
fonctionner le programme il se passe absolument rien.....

Autre solution??

Merci

ALP

Le J
"LE TROLL" <le a écrit dans le message de
news:
Salut,

Si ça marche:

Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "le 13"
Exit Sub
End If
MsgBox "dif de 13 = " & KeyAscii
End Sub

Vois ta propriété "Style", on doit pouvor saisir dans
le
combo...
----------------------


"Le J" a écrit dans le message
de
news:
> SAlut,
>
> J'essais de faire fonctionner un sous-menu lorsque
> l'utilisateur appuyera
> sur "enter" dans un combobox.......
> J'ai essayé ceci mais ce ne fonctionn pas...
>
> Private Sub Combo2_KeyPress(KeyAscii As Integer)
> If (KeyAscii = 13) Then
> REchErreur
> End If
> end sub
>
> Autre solution??
>
> Merci
>
> Le J
>
>








Avatar
Fox Trot
Bonjour/soir à tous, après mure réflexion, Le J a écrit :
Salut,





Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "le 13"
Exit Sub
End If
MsgBox "dif de 13 = " & KeyAscii
End Sub





Peut être que le problème est le suivant : Avec l'évènement KeyPress,
si tu lis la valeure de la touche, mais tu ne "dis" pas à Windows de ne
pas en tenir compte. Pour cela, met

MsgBox "le 13"
KeyAsciii=0
Exit Sub

--
Fox Trot