Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.53.5] |
|
Сообщ.
#1
,
|
|
|
Ввод только чисел:
Бросьте на форму 1 текстовое поле с именем Text1, вставьте в обработчик сл. код: 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_NUMBER = &H2000 Private Sub Form_Load() Dim lngOldStyle As Long, WD As Long WD = Text1.hwnd lngOldStyle = GetWindowLong(WD, GWL_STYLE) lngOldStyle = lngOldStyle + ES_NUMBER Call SetWindowLong(WD, GWL_STYLE, lngOldStyle) End Sub |