プログラム言語 FreeBasic |
EditorGadget
ID= EditorGadget(Number, x , y , Width , Height , [String=""] , [Style=0])
Function EditorGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long,ByVal h As Long, ByRef text As String="", ByVal style As Long=0 ,ByVal tag as long = 0) As HWND
テキストガジェット(編集)
これは、StringGadget とは異なり、高度なエディタ RICHEDIT20A を使用しています。
ガジェット内のテキストを設定する SetGadgetText
ガジェットからテキストを取得する GetGadgetText
ガジェットの色を設定する SetGadgetColor
ガジェットの色を取得する GetGadgetColor
ガジェットのフォントを設定する SetGadgetFont
ID - ガジェット・ハンドル
Number - 識別子 (正の整数 1,2,3,4 など)
x,y,Width,Height- サイズと位置
string - ガジェット内の任意のテキスト
Style - 選択したスタイル(StringGadget を参照してください)
Windows , Linux
例:
#Include "window9.bi"
Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,400,400)
EditorGadget(1,10,10,300,300, "Editor")
Do
event=WaitEvent()
If event=EventClose Then End
Loop