Gadget ›› CheckBoxGadget

CheckBoxGadget

構文

ID=CheckBoxGadget (number, x , y , Width , Height, [namestring=""], [style= 3])

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つの状態(未チェック、チェック、グレーチェック)のボタンを作成できます）。

Windows では、CheckBoxGadget をクリックすると最初にガジェットの状態を変更し、その後、ガジェットのマウスクリックに関するイベントが、ウィンドウに送信されます。
Linux では逆になります。

ID - ガジェットのハンドル

GetGadgetState 関数を使うと、ガジェットのクリックの状況を取得できます。

SetGadgetState 関数を使うと、ガジェットのクリックの状況を設定できます。

SetGadgetText 関数を使ってガジェットにテキストを設定します。

GetGadgetText 関数を使ってガジェットからテキストを取得します。

SetGadgetColor 関数を使ってガジェットの色を設定します。

GetGadgetColor 関数を使ってガジェットから色を取得します。

SetGadgetFont 関数を使ってフォントをガジェットにインストールします。

オプション

gadget(Number) - 識別子(ID Number) (任意の正の自然数。1、2、3、4 など)

x ,y , w , h - 位置とサイズ

s(namestring) - チェックボックス（CheckBox）の右にある文字列

Style - Windows のみ。
Style を 6 に設定すると、3つのポジションを持つ 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, "ボタン")
Do
   event=WaitEvent()
   If event=EventClose Then End
   If event=eventgadget Then
      If EventNumber()=2 Then
         If  GetGadgetState(1)=1 Then
            MessBox("Message","CheckBoxGadget で Check box は選択状態")
         Else
            MessBox("Message","CheckBoxGadget で Check box は未選択状態")
         EndIf
      EndIf
   EndIf
Loop

結果

例２:

#Include "window9.bi"
Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,100,150)
CheckBoxGadget(1,10,10,90,80,"Checkbox")
Do
   event=WaitEvent()
   If event=EventClose Then End
   If event=eventgadget Then
      If eventnumber()=1 Then
         If  GetGadgetState(1)=1 Then
            MessBox("メッセージ","チェックボックス")
         EndIf
      EndIf
   EndIf
Loop

http://mneniya.ucoz.ru/