Как проверит checkbox стоит там флажок или нет?

[dimalib]

Привет всем. Вот хотел checkbox использовать а проверит стоит там флажок или нет никак не могу. Подскажите чайнику. Please.

[RayShade]

Проперть .Value

True если флажок стоит.



Точнее, True это когда она boolean и в VBA, а когда она integer и в VB, то это будет 0, 1 или 2, но так как 1=True то нас эти тонкости мало в принципе волнуют. Работать будет в любом случае, неоднократно проверено. А главное ведь что - чтобы работало, а как не важно. Ибо нам то нужен только результат, а сущность понимать -это лишь пустая загрузка процессора. Потому что двестидвадцатьпятьтысяч вопросов это выход из любой сиутации. Счастье для всех, даром и обиженный никто не уйдет.

[alibek]

А вот и ни фига
.Value = vbChecked (1) - установлен, vbUnchecked (0) - не установлен, vbGrayed (2) - серый. Для получания булейного результата можешь использовать выражение (Checkbox1.Value = vbChecked).

[Александр80]

В модуль:

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40


Форма:
Private Sub Check1_Click()
If Check1.Value = 1 Then SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

If Check1.Value = 0 Then SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub


Вот и готов код с использованием CheckBox, который при установки флажка задает расположение формы поверх остальных.
Очень полезная вещь...


Value = 0 - Неотмечено
Value = 1 - Отмечено
Value = 2 - Выключено