[ű]
=ListBox
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Public Const SW_SHOW = 5
Sub Main()
Hwnd = HGUI.CreateWindow("FormDesinger1",2,78,670,436) '
HGUI.Show Hwnd,SW_SHOW 'ʾ
HwndListBox1 = HGUI.CreateListBox(Hwnd,"ListBox",182,115,175,125) 'ListBox
HGUI.ListBox_AddString HwndListBox1,"abc"
HGUI.ListBox_AddString HwndListBox1,"def"
Text = HGUI.ListBox_GetText(HwndListBox1,1)
print Text
HGUI.Show HwndListBox1,SW_SHOW 'ʾListBox
HGUI.Run 'Ϣѭ
End Sub
[]
