Gadget ›› SetGadgetState

SetGadgetState

構文

SetGadgetState(gadget,state)

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

説明

ガジェットの状態を設定できます:

• SpinGadget (範囲内の現在の位置)
• ProgressBarGadget (範囲内の現在の位置)
• CheckBoxGadget, OptionGadget, ButtonGadget (Flag FB_BS_PUSHLIKE), ButtonImageGadget (Flag FB_BS_PUSHLIKE、BS_PUSHLIKE または BS_AUTOCHECKBOX)

0 - ボタンが押されていない、またはチェック・ボックスで選択していない

1 - ボタンが押されたか、チェック・ボックスで選択されている

2 - 3つの位置を持つ CheckBoxGadget の中間位置（ウィンドウのみ）

オプション

gadget - ガジェット番号

state - 新しいガジェットの状態（上の「説明」を参照）

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,250,150)
ButtonGadget(1,10,10,80,80,"check!")
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)
            SetGadgetText(1,"check!")
         Case 0
            SetGadgetstate(2,1)
            SetGadgetText(1,"Un check!")
      End Select
   EndIf
Loop

例２:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=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

結果

http://mneniya.ucoz.ru/