Сообщение BM_GETCHECK

Const BM_GETCHECK = &HF0

Пошлите сообщение BM_GETCHECK кнопке для определения - отмечена ли та кнопка в настоящее время или нет. Это сообщение работает только с кнопками, которые являются флажками(CheckBox) или переключателями(OptionButton)

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

В случае ошибки сообщение возвращает 0. В успешном случае сообщение возвращает одно из следующих значений, определяющих состояние кнопки:
BST_CHECKED = &1
Кнопка отмечена
BST_INDETERMINATE = &2
Кнопка в неопределенном состоянии. Эти работает только с переключателями, которые имеют три возможных состояния
BST_UNCHECKED = &0
Кнопка не отмечена

Параметры

wParam
Не используется - установите равным 0
lParam
Не используется - установите равным 0

Пример

' Определяем состояние флажка Check1.
' Вы должны создать флажок по имени Check1
' и кнопку Command1 в окне формы

Private Sub Command1_Click()
Dim state As Long ' состояние флажка
' Определяем состояние флажка Check1
state = SendMessage(Check1.hWnd, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))
Select Case state
 Case BST_CHECKED
  Debug.Print "Флажок отмечен"
 Case BST_INDETERMINATE
  Debug.Print "Неопределенное состояние"
 Case BST_UNCHECKED
  Debug.Print "Флажок не отмечен"
End Select
End Sub
Смотри также
BM_GETSTATE, BM_SETCHECK
Категория
Кнопка