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
ng
Salut, 2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit, mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle : Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le copier coller autant de fois que voulu, il suffit alors d'ajouter ce code :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
Nicolas. -- http://www.ngsoft-fr.com "d.p" a écrit dans le message de news: y9WJb.18387$
Bonjour,
Comment faire sur un form pour quitter un contrôle et passer au suivant en appuyant sur la touche <ENTER>.
Ex: textbox1--->ENTER--->textbox2.
Merci
Salut,
2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit,
mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True)
End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle :
Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le
copier coller autant de fois que voulu, il suffit alors d'ajouter ce code :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True)
End Sub
Nicolas.
--
http://www.ngsoft-fr.com
"d.p" <donaldpelletier@videotron.cax> a écrit dans le message de news:
y9WJb.18387$Km5.103886@weber.videotron.net...
Bonjour,
Comment faire sur un form pour quitter un contrôle et passer au suivant en
appuyant sur la touche <ENTER>.
Salut, 2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit, mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle : Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le copier coller autant de fois que voulu, il suffit alors d'ajouter ce code :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
Nicolas. -- http://www.ngsoft-fr.com "d.p" a écrit dans le message de news: y9WJb.18387$
Bonjour,
Comment faire sur un form pour quitter un contrôle et passer au suivant en appuyant sur la touche <ENTER>.
"However, using the ENTER key to move the focus does not follow recommended Microsoft Windows-based application design guidelines. The ENTER key should be used to process the default command or to process entered information, not to move the focus."
"However, using the ENTER key to move the focus does not follow recommended
Microsoft Windows-based application design guidelines. The ENTER key should
be used to process the default command or to process entered information,
not to move the focus."
"ng" <ng@babeuk.net> a écrit dans le message de
news:eTYCaxt0DHA.1700@TK2MSFTNGP12.phx.gbl...
2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit,
mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True)
End Sub
"d.p" <donaldpelletier@videotron.cax> a écrit dans le message de news:
y9WJb.18387$Km5.103886@weber.videotron.net...
> Comment faire sur un form pour quitter un contrôle et passer au suivant
en
> appuyant sur la touche <ENTER>.
>
> Ex: textbox1--->ENTER--->textbox2.
>
"However, using the ENTER key to move the focus does not follow recommended Microsoft Windows-based application design guidelines. The ENTER key should be used to process the default command or to process entered information, not to move the focus."
2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit, mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
"d.p" a écrit dans le message de news: y9WJb.18387$ > Comment faire sur un form pour quitter un contrôle et passer au suivant
en
> appuyant sur la touche <ENTER>. > > Ex: textbox1--->ENTER--->textbox2. >
ng
Petite rectification, pour le groupe de controle, ce code est plus interessant car il utilise les index et non sendkeys :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 If Index < MonText.Count - 1 Then MonText(Index + 1).SetFocus Else MonText(0).SetFocus End If End Sub
Nicolas. -- http://www.ngsoft-fr.com "ng" a écrit dans le message de news:
Salut, 2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit, mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle : Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le copier coller autant de fois que voulu, il suffit alors d'ajouter ce code
:
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
Nicolas. -- http://www.ngsoft-fr.com "d.p" a écrit dans le message de news: y9WJb.18387$ > Bonjour, > > Comment faire sur un form pour quitter un contrôle et passer au suivant
en
> appuyant sur la touche <ENTER>. > > Ex: textbox1--->ENTER--->textbox2. > > Merci > >
Petite rectification, pour le groupe de controle, ce code est plus
interessant car il utilise les index et non sendkeys :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If Index < MonText.Count - 1 Then MonText(Index + 1).SetFocus Else
MonText(0).SetFocus
End If
End Sub
Nicolas.
--
http://www.ngsoft-fr.com
"ng" <ng@babeuk.net> a écrit dans le message de news:
eTYCaxt0DHA.1700@TK2MSFTNGP12.phx.gbl...
Salut,
2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit,
mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True)
End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle :
Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le
copier coller autant de fois que voulu, il suffit alors d'ajouter ce code
:
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True)
End Sub
Nicolas.
--
http://www.ngsoft-fr.com
"d.p" <donaldpelletier@videotron.cax> a écrit dans le message de news:
y9WJb.18387$Km5.103886@weber.videotron.net...
> Bonjour,
>
> Comment faire sur un form pour quitter un contrôle et passer au suivant
en
> appuyant sur la touche <ENTER>.
>
> Ex: textbox1--->ENTER--->textbox2.
>
> Merci
>
>
Petite rectification, pour le groupe de controle, ce code est plus interessant car il utilise les index et non sendkeys :
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 If Index < MonText.Count - 1 Then MonText(Index + 1).SetFocus Else MonText(0).SetFocus End If End Sub
Nicolas. -- http://www.ngsoft-fr.com "ng" a écrit dans le message de news:
Salut, 2 textboxes (Text1 et Text2) sur la form avec un TabIndex qui se suit, mettre ce code :
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
S'il y a plus de textboxes, on peut imaginer un groupe de contrôle : Créer un textbox nommé MonText, mettre sa propriété Index à 0 puis le copier coller autant de fois que voulu, il suffit alors d'ajouter ce code
:
Private Sub MonText_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0: Call SendKeys("{TAB}", True) End Sub
Nicolas. -- http://www.ngsoft-fr.com "d.p" a écrit dans le message de news: y9WJb.18387$ > Bonjour, > > Comment faire sur un form pour quitter un contrôle et passer au suivant
en
> appuyant sur la touche <ENTER>. > > Ex: textbox1--->ENTER--->textbox2. > > Merci > >
"However, using the ENTER key to move the focus does not follow recommended Microsoft Windows-based application design guidelines. The ENTER key should be used to process the default command or to process entered information, not to move the focus."
Oué et moi je l'avais dit en français dans un post précédent :
"Alors moi je ne conseille pas de solution du tout !! Le nouveau standard de Windows veut que pour passer d'un champ à un autre on emploie la touche "Tab", la touche "Enter" servant, elle, à valider un formulaire (quand on appuye sur enter, c'est comme si on appuyait sur le bouton "OK", "Enregistrer", ... du formulaire"). Et il ne faut surtout pas commencer à changer ce comportement "by design" de Windows. Sinon bonjour les cafouillages, les bugs, sans compter les utilisateurs désorientés."
Programmeurs : apprenez à respecter les standards !!!!! Après on s'étonne que l'appli ne marche pas bien, qu'elle ne marche plus avec les versions suivantes de Windows, que les utilisateurs râlent, etc.... Quand Microsoft énonce une règle, un standard, c'est pas fait pour les chiens.
Vous pouvez ne pas être d'accord avec la politique du "Tab/Enter" de Microsoft, mais ce n'est pas à vous de changer ça dans votre petit programme. Le seul truc que vous pouvez faire c'est vous plaindre auprès de Microsoft. (même si ça sert à rien).
"However, using the ENTER key to move the focus does not follow recommended
Microsoft Windows-based application design guidelines. The ENTER key should
be used to process the default command or to process entered information,
not to move the focus."
Oué et moi je l'avais dit en français dans un post précédent :
"Alors moi je ne conseille pas de solution du tout !! Le nouveau standard de
Windows veut que pour passer d'un champ à un autre on emploie la touche "Tab",
la touche "Enter" servant, elle, à valider un formulaire (quand on appuye sur
enter, c'est comme si on appuyait sur le bouton "OK", "Enregistrer", ... du
formulaire").
Et il ne faut surtout pas commencer à changer ce comportement "by design" de
Windows. Sinon bonjour les cafouillages, les bugs, sans compter les
utilisateurs désorientés."
Programmeurs : apprenez à respecter les standards !!!!! Après on s'étonne que
l'appli ne marche pas bien, qu'elle ne marche plus avec les versions suivantes
de Windows, que les utilisateurs râlent, etc.... Quand Microsoft énonce une
règle, un standard, c'est pas fait pour les chiens.
Vous pouvez ne pas être d'accord avec la politique du "Tab/Enter" de
Microsoft, mais ce n'est pas à vous de changer ça dans votre petit programme.
Le seul truc que vous pouvez faire c'est vous plaindre auprès de Microsoft.
(même si ça sert à rien).
"However, using the ENTER key to move the focus does not follow recommended Microsoft Windows-based application design guidelines. The ENTER key should be used to process the default command or to process entered information, not to move the focus."
Oué et moi je l'avais dit en français dans un post précédent :
"Alors moi je ne conseille pas de solution du tout !! Le nouveau standard de Windows veut que pour passer d'un champ à un autre on emploie la touche "Tab", la touche "Enter" servant, elle, à valider un formulaire (quand on appuye sur enter, c'est comme si on appuyait sur le bouton "OK", "Enregistrer", ... du formulaire"). Et il ne faut surtout pas commencer à changer ce comportement "by design" de Windows. Sinon bonjour les cafouillages, les bugs, sans compter les utilisateurs désorientés."
Programmeurs : apprenez à respecter les standards !!!!! Après on s'étonne que l'appli ne marche pas bien, qu'elle ne marche plus avec les versions suivantes de Windows, que les utilisateurs râlent, etc.... Quand Microsoft énonce une règle, un standard, c'est pas fait pour les chiens.
Vous pouvez ne pas être d'accord avec la politique du "Tab/Enter" de Microsoft, mais ce n'est pas à vous de changer ça dans votre petit programme. Le seul truc que vous pouvez faire c'est vous plaindre auprès de Microsoft. (même si ça sert à rien).
