Gadget ›› ButtonGadget

プログラム言語 FreeBasic


ButtonGadget

構文

ID= ButtonGadget(Number,x,y,Width,Height,[Text_name=""], [Style= 0] )

Function ButtonGadget(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=0) As HWND


内容

文字列を表示できるボタン・ガジェット

ID - ボタン・ハンドル


SetGadgetText 関数を使って、ガジェット中に文字列を設定できます

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

SetGadgetFont 関数を使って、ガジェットの文字のフォントを設定できます

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

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

Linux では、SetGadgetColor を使ってボタンテキストの色を変更できます。


オプション

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

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

s (Text_name) - ボタンに表示する文字列

Style - トグルボタンに FB_BS_PUSHLIKE スタイルを設定できます。
設定できるスタイルは以下で、Windows だけです。

FB_BS_PUSHLIKE (旧 BS_PUSHLIKE も使えます。) オプションのプログラム例は、以下を参照下さい。
ButtonImageGadget (画像付きボタン)
Extract_Icon
GetGadgetState (ガジェットの状況を取得できます)
Load_image

プラットホーム

Windows , Linux


例:

#Include "window9.bi"
Dim As integer hwnd,but,event
hwnd=OpenWindow("1",300,10,100,100)
ButtonGadget(1,10,10,60,30,"button")

Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then MessBox("メッセージ","これはボタンです")
Loop

ボタン


すべての可能な Style オプション:


 参考:
 ボタンスタイル
https://docs.microsoft.com/ja-jp/cpp/mfc/reference/styles-used-by-mfc
 コントロールのウィンドウスタイル
http://chokuto.ifdef.jp/urawaza/prm/ctl_style.html
 ウィンドウを作る
http://wisdom.sakura.ne.jp/system/winapi/win32/win7.html
 ボタン類
http://www-higashi.ist.osaka-u.ac.jp/~k-maeda/vcpp/sec8-1button.html
 プッシュボタンコントロール
http://mrxray.on.coocan.jp/Halbow/Chap06.html

http://mneniya.ucoz.ru/

←リンク元に戻る Window9 トップに戻る FreeBASIC マニュアル トップに戻る
ロシア語オリジナル:https://users.freebasic-portal.de/freebasicru/window9lib/window9.html