不显示tab标签,使用tab控件的简例
看到提问区有个关于这个的问题,以前一直想把这种方法共享出来,总是忘记,趁这个机会,写个简单的例子,放论坛给大家参考#include <GUIConstantsEx.au3>
GUICreate("选项卡控件 GUI", 800, 640)
$Btn0 = GUICtrlCreateButton("0", 20, 5, 50, 20) ;3个用来测试切换tab分页的按钮
$Btn1 = GUICtrlCreateButton("1", 80, 5, 50, 20)
$Btn2 = GUICtrlCreateButton("2", 140, 5, 50, 20)
$hTab = GUICtrlCreateTab(-1110, 10, 800, 640);创建tab控件,注意坐标
GUICtrlCreateTabItem("标签0")
GUICtrlCreateLabel("文本 0", 30, 80, 50, 20)
GUICtrlCreateButton("确定 0", 20, 50, 50, 20)
GUICtrlCreateInput("默认", 80, 50, 70, 20)
GUICtrlCreateTabItem("标签1")
GUICtrlCreateLabel("文本 1", 30, 80, 50, 20)
GUICtrlCreateCombo("", 20, 50, 60, 120)
GUICtrlSetData(-1, "三和弦|数码|拉里|乔恩|泰罗|吉尼斯", "乔恩")
GUICtrlCreateButton("确定 1", 80, 50, 50, 20)
GUICtrlCreateTabItem("标签2")
GUICtrlCreateLabel("文本 2", 30, 80, 50, 20)
GUICtrlCreateButton("确定 2", 140, 50, 50)
GUICtrlCreateTabItem("")
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Btn0
GUICtrlSendMsg($hTab, 4912, 0, 0)
Case $Btn1
GUICtrlSendMsg($hTab, 4912, 1, 0)
Case $Btn2
GUICtrlSendMsg($hTab, 4912, 2, 0)
EndSwitch
WEnd
回复 1# 298311657
谢谢分享!学习了 学习了....感谢{:face (332):} 谢谢,楼主很好 感谢楼主无私分享 学习了..谢谢....... 为啥是4912呀?小白表示没看懂{:face (52):} 可能会用得到,看看先 这个可以有啊。 回复 7# Mika
GUICtrlSendMsg($hWnd, $TCM_SETCURFOCUS, $iIndex, 0) GUICtrlCreateTab(-1110,
负坐标 什么意思啊 进来学习下~~感谢分享~
页:
[1]