Evenement TextChanged et focus

Bonjour,

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

Code:

---

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

Ceci ne serait pas plus simple :

Code:

---

1 2	TextBox1.CharacterCasing = CharacterCasing.Upper ;

---

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:

---

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

---

Citation:

---

Envoyé par Graffito

Ceci ne serait pas plus simple :

Code:

---

1 2	TextBox1.CharacterCasing = CharacterCasing.Upper ;

---

---

Effectivement ;)

je retiens les 2 solutions.
MERCI

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

Merci encore