我提供个思路。。。完善就靠自己了。
用TAB实现标签居左。然后再想办法美化就是了。。。
#include <GUIConstants.au3>
#include <TabConstants.au3>
$hGui = GUICreate("Test Tab", 478, 367, 193, 138)
_Create_Tabs(36, 4, 409, 339,4)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$ListView1 = GUICtrlCreateListView("", 68, 44, 317, 200)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
$ListView2 = GUICtrlCreateListView("", 154, 56, 173, 200)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
Do
Until GUIGetMsg()=-3
Func _Create_Tabs($left, $top, $width, $height, $flags=1)
; #FUNCTION# ===========================================================================
; Name...........: _Create_Tab()
; Description ...: Uses the GUICtrlCreateTab() in one
; Syntax.........: _CreateTab($left, $top, $width, height, $style)
; Parameters ....: 1正常,2标签在底部,3标签居右,4标答居左。
; Return values .: -
; Author ........: Sanhen
; Modified.......: -
; Remarks .......: -www.Lunhui.net.cn
; Related .......: GUICtrlCreateTab()
; Link ..........: http://www.autoitx.com/forum.php ... &extra=page%3D1
; Example .......: _Create_Tab(10, 10, 500, 500, 2)
; #FUNCTION# ===========================================================================
Local $Tab
Switch $flags
Case 1
$Tab= GUICtrlCreateTab($left, $top, $width, $height)
Case 2
$Tab= GUICtrlCreateTab($left, $top, $width, $height, $TCS_MULTILINE +$TCS_BOTTOM)
Case 3
$Tab= GUICtrlCreateTab($left, $top, $width, $height, $TCS_VERTICAL+$TCS_MULTILINE +$TCS_RIGHT)
Case 4
$Tab= GUICtrlCreateTab($left, $top, $width, $height, $TCS_VERTICAL+$TCS_MULTILINE +$TCS_FORCEICONLEFT)
EndSwitch
Return $Tab
EndFunc ;==> _Create_Tab()
|