---

Hello,

When I run the event below, I type backwards.The reason is that the cursor
moves to the first position of the textfield every time I type a character.

Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
End Sub

How can I force the cursor to the normal (is last) position? Or is there a
better way to display all the characters in uppercase. Pressing the SHIFT or
CAPS LOCK buttons on the keyboard is no option in this case.

Thanks,

Sjoerd

---

I news:cnqdfn$s5m$1@news3.zwoll1.ov.home.nl,
skrev asd987 <asd987@home.nl>:

>
> How can I force the cursor to the normal (is last) position? Or is
> there a better way to display all the characters in uppercase.
> Pressing the SHIFT or CAPS LOCK buttons on the keyboard is no option
> in this case.

> Private Sub Text1_Change()
> Text1.Text = UCase(Text1.Text)

Text1.SelStart = Len(Text1)

> End Sub


--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)

---

asd987 skrev:
> Private Sub Text1_Change()
> Text1.Text = UCase(Text1.Text)
> End Sub
> ...is there a better way to display all the characters in uppercase.

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

-------
Tomas