UPPER CASE entry field

Hi

I would like to convert the lower case caracter to upper case in an entry field, as they are entered.  How should i proceed ?
thanks in advance
pchalouxAsked:
Who is Participating?
 
bobbit31Commented:
how bout this:
Private Sub Text1_Change()
    Dim ix As Integer
    ix = Text1.SelStart
    Text1.Text = UCase(Text1.Text)
    Text1.SelStart = ix
End Sub
0
 
bob_onlineCommented:
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
0
 
bob_onlineCommented:
I'm sorry, that was almost right:  do this in the KeyPress event instead:

KeyAscii = Asc(UCase(Chr$(KeyAscii)))
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
holliCommented:
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
0
 
bobbit31Commented:
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
0
 
Richie_SimonettiIT OperationsCommented:
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
0
 
pchalouxAuthor Commented:
Private Sub Text1_Change()
   Text1.Text = UCase(Text1.Text)
End Sub

That way, my text is spell backward ...

I'm not using VBNet
0
 
Richie_SimonettiIT OperationsCommented:
Optionally,
Private Sub Text1_LostFocus()
With Text1
    .Text = UCase$(.Text)
End With
End Sub
0
 
pchalouxAuthor Commented:
ok, that should do it.
Thank you, guys
0
 
Richie_SimonettiIT OperationsCommented:
'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
0
 
bobbit31Commented:
> ok, that should do it.
Thank you, guys

are you gonna accept an answer then?
0
 
pchalouxAuthor Commented:
Sorry ,
I thought I did, but I forgot to grade it.
So there you go !
0
 
bobbit31Commented:
thanks!
0
 
Richie_SimonettiIT OperationsCommented:
Glad you "won" Bobbit31, but strange choice to me.
Cheers
0
 
pchalouxAuthor Commented:
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
0
 
ventondCommented:
You could also use the Masked Edit Control, in which case you won't have to write any code. Just set a mask.
0
 
Richie_SimonettiIT OperationsCommented:
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
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.