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

不显示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

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

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

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

学习了....感谢{:face (332):}

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呀?小白表示没看懂{:face (52):}

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

进来学习下~~感谢分享~
页: [1]
查看完整版本: 不显示tab标签,使用tab控件的简例