SetGadgetState

Синтаксис

Sub SetGadgetState(ByVal gadget As long, ByVal state As Long)

Описание

Позволяет устанавливать статус гаджетов:

• SpinGadget (текущая позиция в диапазоне)
• ProgressBarGadget (текущая позиция в диапазоне)
• CheckBoxGadget , OptionGadget , ButtonGadget(c флагом FB_BS_PUSHLIKE ) и ButtonImageGadget(c флагом FB_BS_PUSHLIKE)
      0 - кнопка в не нажатом состоянии или флажок не установлен
      1 - кнопка нажата или флажок установлен
      2 - среднее положение для кнопок с тремя положениями (только для windows)

Параметры

gadget - номер гаджета

state - новое состояние гаджета (описано выше в "Описании")

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,250,150)
ButtonGadget(1,10,10,80,80,"click!")
CheckBoxGadget(2,100,10,20,20)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     Var ss=GetGadgetState(2)
     Select Case ss
        Case 1
           SetGadgetstate(2,0)
        Case 0
           SetGadgetstate(2,1)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites