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)
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.
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.
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