Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Компонент с контролом (полем) ввода IP

296
02 февраля 2008 года
Virtuoso
331 / / 31.07.2005
Visual Basic 6.0

Здравствуйте!
Все компоненты у себя обшарил и не смог найти поле ввода IP. Подскажите в каком компоненте оно находится. Поиском на форуме пользовался, на запрос "IP" выдаёт результаты - проверка наличия файлов, взлом сапёра и прочее...
Спасибо!
251
02 февраля 2008 года
SkyMаn
1.7K / / 31.07.2007
maskedit
296
02 февраля 2008 года
Virtuoso
331 / / 31.07.2005
Спасибо, конечно. Но я помню, что как-то видел контрол, который выгледел первоначально как текстовое поле с точками. В общем как и положено выглядеть полю для ввода IP.

А не ввод маски...
251
02 февраля 2008 года
SkyMаn
1.7K / / 31.07.2007
Вот, что-то нашел, на АПИшках:
Код:
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
Может и не работать, нет возможности сейчас проверить.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог