GetGadgetState

Синтаксис

Function GetGadgetState(ByVal gadget As long) As Integer

Описание

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

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

На системе Linux , если в обрабатываемом событии самого гаджета (OptionGadget, CheckBoxGadget) сразу же опрашивать его состояние с помощью GetGadgetState , вполне может так получиться , что функция вернет предыдущее состояние . Это специфично для Linux и обработки событий x-server, поскольку x-server не моментально обновляет информацию.

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd
Dim As integer event
hwnd=OpenWindow("1",300,10,250,150)
ButtonGadget(1,10,10,80,80,"Привет", FB_BS_PUSHLIKE)
TextGadget(2,100,10,180,20)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     Var ss=GetGadgetState(1)
     Select Case ss
        Case 1
           SetGadgetText(2,"кнопка нажата")
        Case 0
           SetGadgetText(2,"кнопка не нажата")
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation