Как сделать, чтобы при вводе букв в , Textbox, они становились БОЛЬШИМИ или маленькими

[D[u]fa]

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_UPPERCASE = &H8 – для больших букв
Private Const ES_LOWERCASE = &H10 – для маленьких букв
 
Private Sub Form_Load()
    Call SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_LOWERCASE)
End Sub

Сообщение отредактировано: Andrey_Kun - 05.04.04, 10:17

[Seriy-Coder]

Ну АРI это рульно, но и в VB есть такие ф-ции: это UCase(), UCase$() - преобразует в заглавные, и LCase() LCase$() - преобразует в строчные

[D[u]fa]

не спорю , но этот вариант показался надёжней и попроще