UPPER CASE entry field

in the keydown event

KeyCode = Asc(Ucase(Chr$(KeyCode)))

This converts the keycode to a character, converts the cuaracter to upper case and converts that back to a keycode integer

I'm sorry, that was almost right:  do this in the KeyPress event instead:

KeyAscii = Asc(UCase(Chr$(KeyAscii)))

You can use the following Code:

Private Sub TextboxName_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32
End Sub

Alter "TextboxName" to the name of the textbox in your project.


holli

yes, but if you cut and copy lower case text then the above code will not work... try this instead:

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

This example not only shows how to do what you want but a bunch of others usefull stuf:
http://www.mvps.org/vbnet/code/textapi/txstyles.htm

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

That way, my text is spell backward ...

I'm not using VBNet

Optionally,
Private Sub Text1_LostFocus()
With Text1
    .Text = UCase$(.Text)
End With
End Sub

ok, that should do it.
Thank you, guys

'From www.mvps.org/vbnet

Private Declare Function GetWindowLong Lib "user32" _
   Alias "GetWindowLongA" _
  (ByVal hwnd As Long, _
   ByVal nIndex As Long) As Long
   
Private Declare Function SetWindowLong Lib "user32" _
   Alias "SetWindowLongA" _
  (ByVal hwnd As Long, _
   ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
     


Private Sub Form_Load()
Const GWL_STYLE As Long = (-16)
Const ES_UPPERCASE As Long = &H8&
Dim defstyle As Long

defstyle = GetWindowLong(Text1.hwnd, GWL_STYLE)
   
Call SetWindowLong(Text1.hwnd, GWL_STYLE, _
                                  defstyle Or ES_UPPERCASE)
     
End Sub

> ok, that should do it.
Thank you, guys

are you gonna accept an answer then?

Sorry ,
I thought I did, but I forgot to grade it.
So there you go !

thanks!

Glad you "won" Bobbit31, but strange choice to me.
Cheers

Dear Richie_Simonetti,

I hope that your feelings aren't hurt.
I'm sure that your answers were very good, but I think that 30 lines of code to change characters to upper case is a bit too much, this time.

Please, don't answer to this message.  
I gave my grades.  
It's final and without any appeal.
Let's get on with our lives.

ok, bye

You could also use the Masked Edit Control, in which case you won't have to write any code. Just set a mask.

Nobody tries to appeal, you can keep your grades where they are.
I was not talking regarding only my comment. Sorry if it appears so.

Have a nice day.
Cheers