Ctrl + Entrée

Question

Bonjour,

Je suis sous VB2005, mais peut-&#234;tre que mon probl&#232;me s'&#233;tend au 2003 ou encore au VB6...
Mon probl&#232;me est le suivant : je souhaite, dans un Textbox, faire en sorte que, quand on appuie sur Ctrl+Entr&#233;e, cel&#224; fasse une action, exactement comme sous Internet Explorer qui rajoute http://www.lesite.com &#224; la barre d'adresse. Le probl&#232;me, c'est que quand je fais cela, il m'active la barre des menus (comme si on appuyant sur Alt) au lieu d'ex&#233;cuter le code que je veux.

Par contre, si je fais Alt+Entr&#233;e, &#231;a marche, mais il m'active toujours la barre des menus...

Aidez-moi !!

PCPT · Answer

salut, exemple VB6 fonctionnel ... Option Explicit ' ' Private Sub Form_Load() Text1.Text = "" End Sub ' ' Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode 13) And (Shift 2) Then ' annule l'écriture KeyCode = 0 ' execute l'action MsgBox "Ctrl + Enter" End If End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

pjouy · Answer

Merci pcpt, &#231;a avance un peu : il ne me met plus le Alt pour activer la barre des menus maintenant et ex&#233;cute le code. Le probl&#232;me, c'est que je suis arriv&#233; &#224; faire ce que je voulais avec la touche Alt et non pas avec la touche Control (toujours le m&#234;me probl&#232;me). Cel&#224; doit &#234;tre d&#251; au .Net je pense.
Une id&#233;e ?

PCPT · Answer

beh....
j'touche pas &#224; .net, demande plus pr&#233;cis&#233;ment si besoin.
@+
PCPT    [AFCK]

pjouy · Answer

Dans ce cas, quelqu'un d'autre aurait-il une id&#233;e, en .Net svp ?

OneHacker · Answer

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown


If e.Control True And e.KeyCode Keys.Enter Then


' Action


End If


End Sub

Redman

pjouy · Answer

OneHacker : c'&#233;tait le code que j'avais logiquement mis au d&#233;part, et c'est vrai que sans barre de menu, il marche. Le probl&#232;me, c'est que j'ai une barre de menu (Fichier, Edition, Affichage, etc...), et lorsque j'active la combinaison Ctrl + Entr&#233;e &#224; partir de mon Textbox, &#231;a active la premi&#232;re s&#233;lection de la barre des Menus, &#224; savoir "Fichier", un peu comme si on avait appuy&#233; sur la touche Alt pour acc&#233;der au menu par le clavier. D'o&#249; en fait ma question de d&#233;part...

Help !!!

OneHacker · Answer

Ben &#224; moi ca le fait pas ! C'est peut &#234;tre que t'a mis un shortcut &#224; un element du menu

Redman

pjouy · Answer

Je n'ai mis aucun raccourci clavier pour les menus. As-tu essay&#233; avec VB 2005 ?

PCPT · Answer

salut,
j'pense &#224; &#231;&#224; comme &#231;&#224;......
(mais .net, je sais pas...) tu as un KeyPreview sur la Form?
genre de rep&#233;rer uniquement Ctrl, donnant alors le focus sur ta TxtBox...
ou AccesKey, je sais pas...... de mani&#232;re &#224; ce que si Ctrl, le menu ne se "Alt" pas.

bon courage
PCPT   [AFCK]

OneHacker · Answer

pcpt le Key Preview existe aussi en VB.Net, par d&#233;faut il sont tous &#224; true

pjouy, je n'ai pas vb.net 2005 et je la FrameWork SDK 2 veut pas s'installer !

Redman

pjouy · Answer

Il y a effectivement un KeyPreview, par d&#233;faut il est sur False, mais j'ai aussi essay&#233; avec True, j'ai toujours le m&#234;me probl&#232;me.
J'ai aussi essay&#233; de changer le e.Control en e.KeyValue = 17, toujours pareil.
Par contre, si je met en Enabled = False ma barre de menus, tout fonctionne parfaitement.

Sacr&#233; casse-t&#234;te... ou serait-ce un bug dans VB 2005 (comme d'ailleurs celui de ne pas prendre en compte les images avant d'avoir cr&#233;&#233; l'EXE) ?

OneHacker · Answer

Toute facon le keypreview ne change rien si t'a pas mis des shortcuts !

Mais l'erreur n'est pas l&#224;

Redman

Ctrl + Entrée

12 réponses

Discussions similaires