17
Апрель
2009
Ввод только строчных или заглавных букв в TextBox
Ввод только строчных или заглавных букв в TextBox.
Делаем так, чтобы в текстовое поле можно было вводить только строчные или заглавные буквы. Вариант с использованием API-функций.
Option Explicit
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 Const ES_LOWERCASE = &H10& ' Константа для ввода строчных букв
Private Const ES_UPPERCASE = &H8& ' Константа для ввода заглавных букв
Private Const GWL_STYLE = (-16)
Private Sub Form_Load()
Call SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_UPPERCASE)
End Sub