隐藏Tab的灰色背景，最好只留下切换按钮

81206954

效果图：


需解决的问题： 隐藏Tab的灰色背景和白色背景，只留下切换按钮，

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TabConstants.au3>
#Include <GuiComboBox.au3>
#include <GUIConstants.au3> 
#include <GuiMenu.au3>
#include <Process.au3> 
#include <File.au3>
#include <Array.au3>
#include <ProgressConstants.au3>

$Form = GUICreate("1111111111", 346, 333)
$tab = GUICtrlCreateTab(3, 18, 342, 145)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$tab0 = GUICtrlCreateTabItem("333")
$Combo1 = GUICtrlCreateCombo("", 22, 75, 130, 25)
GUICtrlSetData(-1, "22|33","22")
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("确定", 158, 75, 50, 23)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")                 
$tab1 = GUICtrlCreateTabItem("222")
$Group1 = GUICtrlCreateGroup("222", 10, 58, 326, 95)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")

$Pic1 = GUICtrlCreatePic("bg.jpg", 0, 0,353, 364, $WS_CLIPSIBLINGS)

GUISetState(@SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE, $Button1 
   Exit
    EndSwitch
WEnd

pusofalse

那就不是TAB标签了，可以用按钮代替。无非就是GUIGetMsg、GUICtrlSetState。

guland

我的GUI建出来就是这样的啊

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 489, 342, 192, 124)
GUISetBkColor(0x000000)
$Tab1 = GUICtrlCreateTab(62, 58, 357, 207)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Label2 = GUICtrlCreateLabel("111111111", 110, 138, 58, 17)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Label3 = GUICtrlCreateLabel("22222", 154, 164, 34, 17)
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

81206954

还是不行~~~

kv998

回复 4# 81206954

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("分页标签对话框", 413, 298, 302, 218)
GUISetIcon("D:\005.ico")
$PageControl1 = GUICtrlCreateTab(8, 8, 396, 256, $TCS_BUTTONS)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Label3 = GUICtrlCreateLabel("111111111111", 96, 115, 76, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Label2 = GUICtrlCreateLabel("222222222222", 64, 123, 76, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$Label1 = GUICtrlCreateLabel("33333333333333", 72, 131, 88, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("确定(&O)", 166, 272, 75, 25, 0)
$Button2 = GUICtrlCreateButton("取消(&C)", 246, 272, 75, 25, 0)
$Button3 = GUICtrlCreateButton("帮助(&H)", 328, 272, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

guland

这是不是跟系统和系统主题有关啊
我的系统是WIN7,
你可以加个皮肤试试

81206954

用图片盖住Tab  $WS_CLIPSIBLINGS ，隐藏了Tab，但是功能没影响，然后用图片代替按钮，勉强算OK了，嘿嘿~~~
看我的图:



kv998  你这个方法也不错，但是不符合我说的，谢谢！  收藏了

l411126683

看 看看

学习

d5121226

用图片盖住Tab  $WS_CLIPSIBLINGS ，隐藏了Tab，但是功能没影响，然后用图片代替按钮，勉强算O ...
81206954 发表于 2009-12-26 19:24

    这个不错，试试行不行。本人也正为这个问题困扰

menfan1

我是用皮肤的，呵呵