プログラム言語 FreeBasic |
GadgetToolTip
GadgetToolTip(gadgetParrent , text , [gadget=0])
Function GadgetToolTip(ByVal parentGadget as long, ByRef text As String, ByVal gadget As long=0) As Integer
ガジェットのツールチップ
関数 SetGadgetColor でガジェットの色を設定(Windowsのみ)
関数 GetGadgetColor でガジェットの色を取得(Windowsのみ)
関数 SetGadgetFont でガジェットのフォントを設定(Windowsのみ)
gadgetParrent - ヒント・プロンプトが必要なガジェットの番号
text - 任意のテキスト
gadget - GadgetTooltip ガジェット番号
最後のオプションのパラメータは、関数を使うために必要です: DelToolTip,DisableToolTip,GetToolTipText,SetToolTipText,SetGadgetColor, GetGadgetColor, SetGadgetFont
Windows , Linux
例:
#Include "window9.bi"
OpenWindow("",10,10,300,100)
StringGadget(1,10,10,100,20)
ButtonGadget(2,120,10,130,20)
GadgetToolTip(1,"文字列ガジェット")
GadgetToolTip(2,"ボタン")
Do
var event=WaitEvent()
If event=eventclose Then End
Loop