Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData Case Keys.Enter tcMain.SelectedIndex = 0 ' tcMain étant un objet de type TabControl contenant des objets de type TabPage. Return True End Select
Return MyBase.ProcessCmdKey(msg, keyData) End Function
a+
-- fmillox
"Christian" a écrit :
bonjour, comment puis je faire pour redonner le focus au controle qui a son tabindex = 0 lorsque je suis n'importe ou sur ma feuille??
Protected Overrides Function ProcessCmdKey(ByRef msg As
System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As
Boolean
Select Case keyData
Case Keys.Enter
tcMain.SelectedIndex = 0 ' tcMain étant un objet de type
TabControl contenant des objets de type TabPage.
Return True
End Select
Return MyBase.ProcessCmdKey(msg, keyData)
End Function
a+
--
fmillox
"Christian" a écrit :
bonjour,
comment puis je faire pour redonner le focus au controle qui a son
tabindex = 0 lorsque je suis n'importe ou sur ma feuille??
Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData Case Keys.Enter tcMain.SelectedIndex = 0 ' tcMain étant un objet de type TabControl contenant des objets de type TabPage. Return True End Select
Return MyBase.ProcessCmdKey(msg, keyData) End Function
a+
-- fmillox
"Christian" a écrit :
bonjour, comment puis je faire pour redonner le focus au controle qui a son tabindex = 0 lorsque je suis n'importe ou sur ma feuille??
slt, merci pour ta reponse mais ma question na rien a voir avec les tabcontrol :) Le tabIndex est une propriete permettant de passer d'un control (ex TextBox) à un autre lorsqu'on clique sur Tab. En fait ce qui m'interreserait serait de remplacer la touche Tab par la touche Entrer.
slt,
merci pour ta reponse mais ma question na rien a voir avec les tabcontrol :)
Le tabIndex est une propriete permettant de passer d'un control (ex
TextBox) à un autre lorsqu'on clique sur Tab. En fait ce qui
m'interreserait serait de remplacer la touche Tab par la touche Entrer.
slt, merci pour ta reponse mais ma question na rien a voir avec les tabcontrol :) Le tabIndex est une propriete permettant de passer d'un control (ex TextBox) à un autre lorsqu'on clique sur Tab. En fait ce qui m'interreserait serait de remplacer la touche Tab par la touche Entrer.
Je viens de tester sous VB 2005 (béta2) dans une form avec 4 textbox le gestionnaire suivant et ça fonctionne sans problème :
Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown If e.KeyValue = 13 Then SendKeys.Send("{TAB}")
End Sub
Je ne saurai pas dire pourquoi ça ne fonctionne pas chez vous.
-- Arnaud, http://cerbermail.com/?CMJMEZByvW
"http://cerbermail.com/?5RVJmRhSQw " <"http://cerbermail.com/?5RVJmRhSQw "> a écrit dans le message de news:
Arnaud a écrit :
> Avec ceci dans le KeyDown d'un contrôle on obtient une tabulation : > > If e.KeyValue = 13 Then SendKeys.Send("{TAB}") > > > > > "Christian" <http://cerbermail.com/?5RVJmRhSQw> a écrit dans le message
de
> news: > >>en fait ce que je veux faire c la meme chose que qd on tape sur tab mais >>avec la touche entrer. >> >>merci >>-- >>http://www.correzeweb.com >>http://www.localetv.com >>http://cerbermail.com/?5RVJmRhSQw > > > merci mais le send keys marche pas sous vb 2005
Je viens de tester sous VB 2005 (béta2) dans une form avec 4 textbox le
gestionnaire suivant et ça fonctionne sans problème :
Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown,
TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown
If e.KeyValue = 13 Then SendKeys.Send("{TAB}")
End Sub
Je ne saurai pas dire pourquoi ça ne fonctionne pas chez vous.
--
Arnaud,
http://cerbermail.com/?CMJMEZByvW
"http://cerbermail.com/?5RVJmRhSQw " <"http://cerbermail.com/?5RVJmRhSQw ">
a écrit dans le message de news:e4xs3qnyFHA.2848@TK2MSFTNGP15.phx.gbl...
Arnaud a écrit :
> Avec ceci dans le KeyDown d'un contrôle on obtient une tabulation :
>
> If e.KeyValue = 13 Then SendKeys.Send("{TAB}")
>
>
>
>
> "Christian" <http://cerbermail.com/?5RVJmRhSQw> a écrit dans le message
de
> news:u4g4s11xFHA.2008@TK2MSFTNGP10.phx.gbl...
>
>>en fait ce que je veux faire c la meme chose que qd on tape sur tab mais
>>avec la touche entrer.
>>
>>merci
>>--
>>http://www.correzeweb.com
>>http://www.localetv.com
>>http://cerbermail.com/?5RVJmRhSQw
>
>
>
merci mais le send keys marche pas sous vb 2005
Je viens de tester sous VB 2005 (béta2) dans une form avec 4 textbox le gestionnaire suivant et ça fonctionne sans problème :
Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown If e.KeyValue = 13 Then SendKeys.Send("{TAB}")
End Sub
Je ne saurai pas dire pourquoi ça ne fonctionne pas chez vous.
-- Arnaud, http://cerbermail.com/?CMJMEZByvW
"http://cerbermail.com/?5RVJmRhSQw " <"http://cerbermail.com/?5RVJmRhSQw "> a écrit dans le message de news:
Arnaud a écrit :
> Avec ceci dans le KeyDown d'un contrôle on obtient une tabulation : > > If e.KeyValue = 13 Then SendKeys.Send("{TAB}") > > > > > "Christian" <http://cerbermail.com/?5RVJmRhSQw> a écrit dans le message
de
> news: > >>en fait ce que je veux faire c la meme chose que qd on tape sur tab mais >>avec la touche entrer. >> >>merci >>-- >>http://www.correzeweb.com >>http://www.localetv.com >>http://cerbermail.com/?5RVJmRhSQw > > > merci mais le send keys marche pas sous vb 2005