Сообщение IPM_ISBLANK

Const IPM_ISBLANK = &H469

Сообщение IPM_ISBLANK определяет, пусты ли значения во всех четырех полях ввода чисел в IP address control

Возвращаемое значение

Если все поля пусты, то возвращается ненулевое значение. В противном случае возвращается 0

Параметры

wParam
Не используется. Установите в 0
lParam
Не используется. Установите в 0

Пример

' Воспользуйтесь примером сообщения IPM_SETFOCUS
' и добавьте в нужное место проверку полей ввода чисел

Dim lRet As Long

lRet = SendMessage(hIPControl, IPM_ISBLANK, ByVal CLng(0), ByVal CLng(0))
If lRet <> 0 Then
  Debug.Print "IP-адрес не установлен!"
  Exit Sub
End If

Категория

IP Address Control