不显示tab标签，使用tab控件的简例

298311657 · 发表于 2016-4-24 19:40:22

看到提问区有个关于这个的问题，以前一直想把这种方法共享出来，总是忘记，趁这个机会，写个简单的例子，放论坛给大家参考


#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

chzj589 · 发表于 2016-4-24 20:49:55

回复 1# 298311657
谢谢分享!学习了

cashiba · 发表于 2016-4-26 14:52:58

学习了....感谢

ncxj · 发表于 2016-4-29 10:22:32

谢谢,楼主很好

llllllxllllll · 发表于 2016-5-2 19:16:39

感谢楼主无私分享

masterpcc · 发表于 2016-6-14 11:00:06

学习了..谢谢.......

Mika · 发表于 2016-6-28 20:34:04

为啥是4912呀？小白表示没看懂

ffcloudy · 发表于 2016-7-4 18:40:51

可能会用得到，看看先

chinacc · 发表于 2016-9-30 16:26:02

这个可以有啊。

ura · 发表于 2017-2-6 10:54:03

回复 7# Mika
GUICtrlSendMsg($hWnd, $TCM_SETCURFOCUS, $iIndex, 0)

cfwyy · 发表于 2017-2-28 17:02:42

GUICtrlCreateTab(-1110,
负坐标什么意思啊

hjq766 · 发表于 2017-4-14 19:50:20

进来学习下~~感谢分享~

		自动登录	找回密码
密码			加入

[交流] 不显示tab标签，使用tab控件的简例

评分