創(chuàng)建單選框(Radio)控件.
GUICtrlCreateRadio ( "文本", 左距, 頂距 [, 寬度 [, 高度
[, 樣式 [, 擴展樣式]]]] )
文本 | 控件顯示的文本. |
左距 | 控件左側的位置. 若此值為 -1, 則根據 GUICoordMode 的設置計算左側位置. |
頂距 | 控件上方的位置. 若此值為 -1, 則根據 GUICoordMode 的設置計算頂部位置. |
寬度 | [可選參數] 控件的寬度 (默認文本自動調整適合寬度). |
高度 | [可選參數] 控件的高度 (默認文本自動調整適合高度). |
樣式 | [可選參數] 控件的樣式. 查看附錄 GUI 控件樣式表. 默認樣式 ( -1) : 無. 強制樣式 : $BS_AUTORADIOBUTTON 與 $WS_TABSTOP (若單選框是組的第一個單選框). |
擴展樣式 | [可選參數] 控件的擴展樣式. 查看附錄 擴展樣式表. |
成功: | 返回控件標識符(控件ID). |
失敗: | 返回 0. |
#include <GUIConstantsEx.au3>
Example()
Func Example()
Local
$radio1,
$radio2,
$msg
GUICreate("我的單選框 GUI") ;
創(chuàng)建居中顯示的 GUI 窗口
$radio1 = GUICtrlCreateRadio("單選框 1", 10, 10, 120, 20)
$radio2 = GUICtrlCreateRadio("單選框 2", 10, 40, 120, 20)
GUICtrlSetState($radio2, $GUI_CHECKED)
GUISetState() ; 顯示有復選框控件的 GUI
; 運行 GUI, 直到
GUI 被關閉
While
1
$msg = GUIGetMsg()
Select
Case $msg
= $GUI_EVENT_CLOSE
ExitLoop
Case $msg
= $radio1
And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64,
'信息:', '您點擊并選中單選框 1.')
Case $msg
= $radio2
And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
MsgBox(64,
'信息:', '您點擊并選中單選框 2.')
EndSelect
WEnd
EndFunc ;==>Example
provider with jb51.net (unicode) |