autoit能不能做这种多标签效果，如果可以希望给个源码示例学习

kn007

如题，想知道下。。。

kn007

可以不要图标的

kn007

dingdi顶，继续顶，别沉了

kn007

顶顶顶，DDD，顶起来。。。别沉了

kn007

顶啊，顶啊，顶啊，别沉，别沉，别沉。。。

KLU3K

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Tab1 = GUICtrlCreateTab(8, 16, 289, 193)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
GUICtrlSetOnEvent(-1, "Tab1Change")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd

Func Form1Close()

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Tab1Change()

EndFunc

tisiem

楼上感谢。这个很好。
我也用KODA，但加了标签后，不知道后面的如何操作，看来没搞懂KODA如何用。

kn007

十分感谢6楼的XD，谢谢

lynfr8

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
        Local $tab, $tab0, $tab0OK, $tab0input
        Local $tab1, $tab1combo, $tab1OK
        Local $tab2, $tab2OK, $msg
        
        GUICreate("My GUI Tab", 250, 150); will create a dialog box that when displayed is centered

        GUISetBkColor(0x00E0FFFF)
        GUISetFont(9, 300)

        $tab = GUICtrlCreateTab(10, 10, 200, 100)

        $tab0 = GUICtrlCreateTabItem("tab0")
        GUICtrlCreateLabel("label0", 30, 80, 50, 20)
        $tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20)
        $tab0input = GUICtrlCreateInput("default", 80, 50, 70, 20)

        $tab1 = GUICtrlCreateTabItem("tab----1")
        GUICtrlCreateLabel("label1", 30, 80, 50, 20)
        $tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120)
        GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon"); default Jon
        $tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20)

        $tab2 = GUICtrlCreateTabItem("tab2")
        GUICtrlSetState(-1, $GUI_SHOW); will be display first
        GUICtrlCreateLabel("label2", 30, 80, 50, 20)
        $tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50)

        GUICtrlCreateTabItem(""); end tabitem definition

        GUICtrlCreateLabel("Click on tab and see the title", 20, 130, 250, 20)

        GUISetState()

        ; Run the GUI until the dialog is closed
        While 1
                $msg = GUIGetMsg()

                If $msg = $GUI_EVENT_CLOSE Then ExitLoop
                If $msg = $tab Then
                        ; display the clicked tab
                        WinSetTitle("My GUI Tab", "", "My GUI Tab" & GUICtrlRead($tab))
                EndIf
        WEnd
EndFunc   ;==>Example

GUICtrlCreateTabItem
--------------------------------------------------------------------------------

在GUI上创建一个标签页控件项目.


GUICtrlCreateTabItem ( "文本" )

kn007

#include

Opt('MustDeclareVars', 1)

Example()

Func Example()
        Local $tab, $tab0, $tab0OK, $tab0input
        Local $tab1, $tab1combo, $tab1OK
        Local $tab2, $tab2OK, $msg
       
        GUICreate("My GUI Ta ...
lynfr8 发表于 2009-7-4 22:47

谢谢lynfr8

harrye9016

非常谢谢 这个很需要

nxbigdaddy

学习了，一直也有些相关问题困扰。。。

freedom

果然多搜索一下就能找到自己需要的。

freedom

GUICtrlCreateTabItem
----------------------------------------------------------------------------- ...
lynfr8 发表于 2009-7-4 22:47

    这个源码很强，比第一个好，第一个运行了都不能退出。