|
发表于 2012-4-17 21:48:49
|
显示全部楼层
本帖最后由 netegg 于 2012-4-17 22:37 编辑
回复 16# 邪恶海盗 [au3]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$input1 = GUICtrlCreateInput("Input1", 88, 48, 73, 21)
$Group1 = GUICtrlCreateGroup("Group1", 200, 24, 73, 65)
$radio1 = GUICtrlCreateRadio("Radio1", 208, 26, 113, 17)
$radio2 = GUICtrlCreateRadio("Radio2", 208, 40, 113, 17)
$radio3 = GUICtrlCreateRadio("Radio3", 208, 56, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $radio1
If BitAND(guictrlread($radio1),$gui_checked) then
guictrlsetstate($radio2, $gui_unchecked)
guictrlsetstate($radio3, $gui_unchecked)
guictrlsetdata($input1, '1')
endif
case $radio2
if bitand(guictrlread($radio2),$gui_checked) then
guictrlsetstate($radio1, $gui_unchecked)
guictrlsetstate($radio3, $gui_unchecked)
guictrlsetdata($input1, '2')
endif
case $radio3
if bitand(guictrlread($radio3),$gui_checked) then
guictrlsetstate($radio1, $gui_unchecked)
guictrlsetstate($radio2, $gui_unchecked)
guictrlsetdata($input1, '3')
endif
EndSwitch
WEnd[/au3] |
|