touche entree comme touche tabulation

Question

Bonjour, avec vb.net, comment activer la touche entree comme touche tabulation dans formulaire de saisie textbox.  Meci

NHenry · Answer

As-tu fais quelques recherche, car l me semble que c'est un sujet qui est souvent remonté ?
 
If a Dalek is a being of pure hate...what happens when Cadence uses her love spell on one?
En VB.NET pensez à activer "Option Explicit" et "Option Strict"

filtep · Answer

Comme ça:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress        If e.KeyChar = Chr(13) Then SendKeys.Send("{TAB}")    End Sub

Philippe

filtep · Answer

Un exemple de ce que tu proposes NHenry ?

Au fait pourquoi les SendKeys sont-ils détestés ??
Ils fonctionnent bien et ne posent à ma connaissance pas de problème de fonctionnement du code.
Ce ne serait pas de l'idéologie tout de même ? ;-)

Philippe

ucfoutu · Answer

Bonjour,  filtep,
Les se,ndkeys sont en effet à éviter
Ton code, par ailleurs, ne substitue pas la touche Tab à la touche Enter, comme cela doit tout simplement être fait. Tu te retrouves avec les deux !
Les exemples ne manquent pourtant pas sur ce forum (de très nombreuses discussion à ce sujet).

filtep · Answer

bonjour ucfoutu,

"les sendkeys sont en effet à éviter"    Ok... mais explique nous pourquoi, surtout avec un TAB (un Enter ou un Y encore on peut se méfier au cas ou le sendkeys enverrait une instruction "critique" à une autre appli sous-jacente, mais un TAB !!!)
Je ne pense pas que onodu cherche à faire autre chose que de valider sa textbox avec Enter et de passer ainsi à la suivante. Je confirme donc que mon code fait le boulot. Cependant et pour les intégristes ;))  on peut proposer ça (après avoir organisé le Tabindex des Textbox dans l'ordre qui te convient):

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress        If e.KeyChar = Chr(13) Then            tb = TextBox1.TabIndex            Dim c As New Control            For Each c In Me.Controls                If c.TabIndex = tb + 1 Then                    c.Focus()                    Exit Sub                End If            Next        End If    End Sub

...
Philippe

Touche entree comme touche tabulation

5 réponses

Votre réponse

Discussions similaires