新手上路 发表于 2008-11-26 20:11:29

如何实现两行 Tab ？

AU3 默认只显示一行 Tab，如果界面显示不下时，会在左右各添加一个箭头，用来切换未能显示的 Tab。这种方式很不方便。


像下面这种显示两行 Tab ，不知道有没有办法实现？


[ 本帖最后由 新手上路 于 2008-11-27 12:39 编辑 ]

sanhen 发表于 2008-11-27 13:31:21

解决了问题又不附上解决方法，不大厚道。

还是附个源码上去吧，方便新手。

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()

        Local $tab, $tab0, $tab1, $tab2, $tab3, $tab4, $tab5, $tab6, $tab7, $tab8
   
       
        GUICreate("My GUI Tab"); will create a dialog box that when displayed is centered

        GUISetBkColor(0x00E0FFFF)
        GUISetFont(9, 300)

        $tab = GUICtrlCreateTab(10, 10, 300, 200,$TCS_MULTILINE)

        $tab0 = GUICtrlCreateTabItem("tab0")
        $tab1 = GUICtrlCreateTabItem("tab1")
        $tab2 = GUICtrlCreateTabItem("tab2")
        $tab3 = GUICtrlCreateTabItem("tab3")
        $tab4 = GUICtrlCreateTabItem("tab4")
        $tab5 = GUICtrlCreateTabItem("tab5")
        $tab6 = GUICtrlCreateTabItem("tab6")
        $tab7 = GUICtrlCreateTabItem("tab7")
    $tab8 = GUICtrlCreateTabItem("tab8")

    GUICtrlSetState(-1, $GUI_SHOW)         ; will be display first

        GUISetState()

       

        Do
   Until        GUIGetMsg()=-3
               
       
EndFunc   ;==>Example

新手上路 发表于 2008-11-27 14:02:51

呵呵，我跟你用的的方法有点不一样：

#include <GUIConstantsEx.au3>

$tab = GUICtrlCreateTab(10, 10, 300, 200,0x0040+0x0200)

0x0040+0x0200=$TCS_MULTILINE ？

[ 本帖最后由 新手上路 于 2008-11-27 14:04 编辑 ]
页: [1]
查看完整版本: 如何实现两行 Tab ？