[ű]
=Edit
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[Attachment]
Number=0
[]
Public Const SW_SHOW = 5
Public Const BN_CLICKED = 0
Public Const WM_GETTEXT = &HD
Dim Hwnd,HwndEdit1,HwndButton1,HwndButton2
Sub Main()
Dim n,l
Hwnd = HGUI.CreateWindow("FormDesinger1",2,78,670,436) '
HGUI.Show Hwnd,SW_SHOW 'ʾ
HwndEdit1 = HGUI.CreateEdit(Hwnd,"",11,10,636,323) 'Edit
HGUI.Edit_SetSelText HwndEdit1,"abcdefg"
HGUI.Edit_SetSel HwndEdit1,0,-1 'ѡȫ
HGUI.Edit_GetSel HwndEdit1,n,l 'ѡַ
print n
print l
HGUI.Show HwndEdit1,SW_SHOW 'ʾEdit
HwndButton1 = HGUI.CreateButton(Hwnd,"ʾ",69,348,150,38) 'Button
HGUI.SetEvent HwndButton1,BN_CLICKED,"Button1_Click"
HGUI.Show HwndButton1,SW_SHOW 'ʾButton
HwndButton2 = HGUI.CreateButton(Hwnd,"˳",371,350,188,39) 'Button
HGUI.SetEvent HwndButton2,BN_CLICKED,"Button2_Click"
HGUI.Show HwndButton2,SW_SHOW 'ʾButton
HGUI.Button_LoadImage HwndButton2,"F:\\Key\Release\û½.bmp"
HGUI.Run 'Ϣѭ
End Sub

Sub Button1_Click()
Dim Text
Text = HGUI.GetText(HwndEdit1)
MsgBox Text
End Sub

Sub Button2_Click()
HGUI.Destroy Hwnd
End Sub
[]
