Discussion :

[sebpern]

Bonjour,

Mon problème a l'air pourtant très simple, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub majucule(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Text = UCase(TextBox1.Text)
End Sub

C'est magique : je veux juste mettre en majuscule "en live"

le souci c'est que après le déclenchement de cet évènement, le focus est replacé en début de chaine.

donc si je tape bonjour, je me retrouve avec RUOJNOB.

C'est embêtant ^^, la question comment redonner le focus en fin de chaine.

Merci

[Graffito]

Ceci ne serait pas plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBox1.CharacterCasing = CharacterCasing.Upper ;

[tomlev]

Ceci ne serait pas plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBox1.CharacterCasing = CharacterCasing.Upper ;

Effectivement

[sebpern]

je retiens les 2 solutions.
MERCI

la 2ieme pourra me servir dans d'autre cas ^^

Merci encore

[tomlev]

L'idéal serait de remettre le curseur là où il était, plutôt qu'en fin de chaine. Il suffit d'enregistrer sa position avant de modifier le texte, et de le remettre après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub majucule(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim caretIndex As Integer = TextBox1.SelectionStart
        TextBox1.Text = UCase(TextBox1.Text)
        TextBox1.SelectionStart = caretIndex
End Sub