Gadget ›› OptionGadget

OptionGadget

構文

ID= OptionGadget(Number, x , y , Width , Height , [String=""] , [Style=9])

Function OptionGadget(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 = 9) As HWND

説明

切替オプション・ボタンです。
複数のラジオ・ボタンを表示して、択一で対象を選択できます。

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

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

SetGadgetColor 関数を使ってガジェットの色を設定します。(GTK2 サブシステムを備えた Linux システムでは、テキスト色だけ設定できます)

GetGadgetColor 関数を使ってガジェットから色を取得します。(GTK2 サブシステムを備えた Linux システムでは、テキスト色のみ取得できます)

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

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

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

オプション

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

gadget(Number) - 識別子(ID Number) (任意の正の整数 1,2,3,4 など)

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

s(string) - 切り替えを促す任意の文字列

Style - (Windows のみ) 選択したスタイル (ButtonGadget の Style パラメータを参照)

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,500,250)
OptionGadget(1,10,10,120,30,"オプション 1")
OptionGadget(2,10,40,120,30,"オプション 2")
OptionGadget(3,10,70,120,30,"オプション 3")
OptionGadget(4,10,100,120,30,"オプション 4")
TextGadget(13,200,30,150,30,"何か")
ButtonGadget(10,200,100,150,30,"クリア")
ButtonGadget(11,350,30,100,30,"終了")

Do
   event=WaitEvent()
   If event=EventClose Then End
   If event=eventgadget Then
      If eventNumber = 1 Then
         setgadgettext(13,"1 オプション")
      ElseIf eventNumber = 2 Then
         setgadgettext(13,"2 オプション")
      ElseIf eventNumber = 3 Then
         setgadgettext(13,"3 オプション")
      ElseIf eventNumber = 4 Then
         setgadgettext(13,"4 オプション")
      ElseIf eventNumber = 10 Then
         SetGadgetText(13,"何か")
         SetGadgetState(1,0)
         SetGadgetState(2,0)
         SetGadgetState(3,0)
         SetGadgetState(4,0)
      ElseIf eventNumber = 11 Then
         End
      EndIf
   EndIf
Loop

例２:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,500,500)
OptionGadget(1,10,10,100,30,"オプション 1")
OptionGadget(2,10,40,100,30,"オプション 2")
TextGadget(3,200,30,150,30,"何か")
Do
   event=WaitEvent()
   If event=EventClose Then End
   If event=eventgadget Then
      If GetGadgetState(1)=1 Then
         setgadgettext(3,"1 オプション")
      ElseIf GetGadgetState(2)=1 Then
         setgadgettext(3,"2 オプション")
      EndIf
   EndIf
Loop

結果

http://mneniya.ucoz.ru/