在Group中怎么实现下拉条?
#include <ButtonConstants.au3>#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("test", 794, 572, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
GUISetBkColor(0x716F64)
$Group1 = GUICtrlCreateGroup("软件列表", 144, 56, 617, 393);$WS_VSCROLL 样式不对
$Label1 = GUICtrlCreateLabel("软件名称", 224, 88, 68, 24)
$Label2 = GUICtrlCreateLabel("软件大小", 440, 88, 68, 24)
$Label3 = GUICtrlCreateLabel("当前状态", 664, 88, 68, 24)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 160, 120, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 160, 168, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 160, 224, 17, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 160, 264, 17, 33)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 160, 320, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 160, 368, 17, 25)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 160, 408, 17, 25)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox7", 160, 456, 17, 25)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox7", 160, 504, 17, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Install", 472, 520, 97, 25)
GUICtrlSetBkColor(-1,0x716F64)
$Button2 = GUICtrlCreateButton("Exit", 632, 520, 81, 25)
GUICtrlSetBkColor(-1,0x716F64)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
MsgBox(0,"帮助","在Group中怎么实现下拉条?")
Case $Checkbox1
EndSwitch
WEnd
页:
[1]