设置标签状态
#Include <GuiTab.au3>
_GUICtrlTab_SetItemState($hWnd, $iIndex, $iState)
$hWnd | 控件句柄 |
$iIndex | 标签项目的 0 基索引 |
$iState | 标签项目状态. 可以是一个组合: $TCIS_BUTTONPRESSED - 标签项选中 $TCIS_HIGHLIGHTED - 标签项目高亮 |
成功: | 返回 True |
失败: | 返回 False |
#include <GUIConstantsEx.au3>
#include <GuiTab.au3>
$Debug_TAB = False ; 检查传递给函数的类名, 设置为True并输出到一个控件的句柄,用于检查它是否工作
_Main()
Func _Main()
Local $hTab
; 创建 GUI
GUICreate("Tab Control Set Item State", 400, 300)
$hTab = GUICtrlCreateTab(2, 2, 396, 296, $TCS_BUTTONS)
GUISetState()
; 添加标签
_GUICtrlTab_InsertItem($hTab, 0, "Tab 1")
_GUICtrlTab_InsertItem($hTab, 1, "Tab 2")
_GUICtrlTab_InsertItem($hTab, 2, "Tab 3")
; 获取/设置第二个标签的状态
_GUICtrlTab_SetItemState($hTab, 1, $TCIS_BUTTONPRESSED)
MsgBox(4160, "信息", "Tab 2 state: " & _ExplainItemState(_GUICtrlTab_GetItemState($hTab, 1)))
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
Func _ExplainItemState($iState)
Local $sText = ""
If $iState = 0 Then $sText &= "No state set on this item" & @LF
If BitAND($iState, 1) Then $sText &= "Button Pressed" & @LF
If BitAND($iState, 2) Then $sText &= "Button Highlighted"
Return $sText
EndFunc ;==>_ExplainItemState