Gadget ›› GetGadgetState

GetGadgetState

構文

Value = GetGadgetState(gadget)

Function GetGadgetState(ByVal gadget As long) As Integer

内容

ガジェットの状況を取得できます:

• SpinGadget (範囲内の現在の位置)
• ProgressBarGadget (範囲内の現在の位置)
• CheckBoxGadget , OptionGadget , ButtonGadget(Flag FB_BS_PUSHLIKE) , ButtonImageGadget(Flag FB_BS_PUSHLIKE)
  
  0 - ボタンが押されていないか、チェック・ボックスで選択されていない
  1 - ボタンが押されているか、チェック・ボックスで選択されている
  2 - 3ポジションを持つボタンの中央の位置 (Windows のみ)。チェックボックスでグレー。

Linux システムでは、ガジェット（OptionGadget、CheckBoxGadget）自体が、GetGadgetState を使って照会されるとすぐに、以前の状態を返すことができる場合があります。
X サーバーは情報をすぐに更新しないため、これは Linux および X サーバーイベントに固有です。

オプション

gadget - ガジェット番号

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As HWND hwnd
Dim As integer event
hwnd=OpenWindow("1",300,10,350,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

例２:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,350,150)
ButtonGadget(1,10,10,80,80,"ボタン", BS_PUSHLIKE Or BS_AUTOCHECKBOX )
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

結果

http://mneniya.ucoz.ru/