CheckBoxGadget

Синтаксис

Function CheckBoxGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As long, ByVal w As Long, ByVal h As Long, ByRef s As String="", ByVal Style As Long=3) As HWND

Описание

Кнопка с флажком на 2 состояния (в Windows есть возможность создать кнопку на 3 состояния).

При клике по CheckBoxGadget , в Windows сначала меняется состояние гаджета, а потом отправляется событие окну о клике мышкой по гаджету, в Linux наоборот.

Получить статус нажатия гаджета можно с помощью функции GetGadgetState
Установить статус нажатия гаджета можно с помощью функции SetGadgetState
Установить текст в гаджет можно функцией SetGadgetText
Получить текст из гаджета можно функцией GetGadgetText
Установить цвет в гаджет можно функцией SetGadgetColor
Получить цвет из гаджета можно функцией GetGadgetColor
Установить шрифт в гаджет можно функцией SetGadgetFont

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x ,y , w , h - расположение и размеры

s - текст справа от переключателя

Style - только для Windows. Если установить Style равный 6 , то CheckBoxGadget станет с тремя положениями переключения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("1",300,10,115,150)
CheckBoxGadget(1,10,10,90,30,"Checkbox")
ButtonGadget(2,10,50,90,30, "Button")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If EventNumber()=2 Then
        If  GetGadgetState(1)=1 Then
           MessBox("Сообщение","Флажок CheckBoxGadget установлен")
        Else
           MessBox("Сообщение","Флажок CheckBoxGadget не установлен")
        EndIf
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EBooks