Ghost in text box

[sal21]

I digit ABCD in this textbox and insted to have ABCD see image!!!!

code:
Private Sub Text11_Change()
Text11.Text = UCase(Text11.Text)
End Sub

in effect i need to write always in ucase into textbox independent if i use a caps or shift down

Immagine.JPG

[HansV]

Try using the After Update event of the text box instead of the Change event:

Code: Select all

Private Sub Text11_AfterUpdate()
    Text11.Text = UCase(Text11.Text)
End Sub

The code will fire when the user moves to a different control.

[sal21]

Try using the After Update event of the text box instead of the Change event:

Code: Select all

Private Sub Text11_AfterUpdate()
    Text11.Text = UCase(Text11.Text)
End Sub

The code will fire when the user moves to a different control.

i dont see AfterUpdate in the list of textbox this property... see image

[HansV]

I always forget you're using VB6.

Have you perhaps set the RightToLeft property of the text box to True?

[sal21]

I always forget you're using VB6.

Have you perhaps set the RightToLeft property of the text box to True?

i just have see... no is false

[HansV]

Thanks for checking. What if you use the KeyPress event instead of the Change event?

Code: Select all

Private Sub Text11_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 97 To 122
            KeyAscii = KeyAscii - 32
    End Select
End Sub

[sal21]

Thanks for checking. What if you use the KeyPress event instead of the Change event?

Code: Select all

Private Sub Text11_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 97 To 122
            KeyAscii = KeyAscii - 32
    End Select
End Sub

You are a genius!