Public Const GWL_STYLE = (-16)
Public Const ES_UPPERCASE As Long = &H8&
Public Const ES_LOWERCASE As Long = &H10&
Public Const ES_NUMBER = &H2000&
Public Const ALL_NUMERIC = True
Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
' Allow only numeric input
Dim curstyle As Long
Dim newstyle As Long
curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)
If Flag Then
curstyle = curstyle Or ES_NUMBER
Else
curstyle = curstyle And (Not ES_NUMBER)
End If
newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
NumberText.Refresh
End Sub
Компонент с контролом (полем) ввода IP
Здравствуйте!
Все компоненты у себя обшарил и не смог найти поле ввода IP. Подскажите в каком компоненте оно находится. Поиском на форуме пользовался, на запрос "IP" выдаёт результаты - проверка наличия файлов, взлом сапёра и прочее...
Спасибо!
maskedit
А не ввод маски...
Вот, что-то нашел, на АПИшках: