подскажите пожалуйста как запретить (на VB6) ввод с клавиату

[Marsik91]

подскажите пожалуйста как запретить (на VB6) ввод с клавиатуры букв и прочих символов кроме чисел в TextBox ?

[burik]

Код: Выделить всё

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal nwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000
...
f& = GetWindowLong(Text1.hWnd, GWL_STYLE)
r& = SetWindowLong(Text1.hWnd, GWL_STYLE, f& Or ES_NUMBER)


[Lumen]

А можно ещё в событии Key_Press проверять параметр KeyAscii и если не попадает под нужный диапазон (ну например чисел), то просто обнулять его. Так можно запретить ввод вообще произвольных символов, а не только цифр, букв или спецсимволов...

[burik]

Lumen
Только юзер еще может вставить текст в текст бокс из буфера, а может чужая прога будет туда текст совать. Да и человеку надо именно цифры, а не другие знаки. Так зачем же жизнь услажнять?