回复 1# newuser
应该是ComCtl32.dll版本的原因。
msdn描述:TCS_RIGHT : ... This style is not supported if you use visual styles
TCS_VERTICAL: ... This style is not supported if you use ComCtl32.dll version 6... -
You can use a tool like "Process Explorer" from "Sysinternals" to see that the application uses version 6 under XP not matter that version 5.8 is under "System32"-dir.
看来可以使用如下语句使其工作。DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=d:\zgk_2010\autoit\autoit_zgk_works\chengpin\auto_instsoft\form1.kxf
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$Form1_1 = GUICreate("Form1", 633, 454, 253, 118)
$Group1 = GUICtrlCreateGroup("", 72, 0, 449, 449, -1, $WS_EX_TRANSPARENT)
$Tab1 = GUICtrlCreateTab(72, 16, 449, 433,$TCS_VERTICAL)
$TabSheet1 = GUICtrlCreateTabItem("安全工具")
$Label1 = GUICtrlCreateLabel("Label1", 152, 88, 36, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 208, 88, 17, 17)
$Label2 = GUICtrlCreateLabel("Label2", 152, 120, 36, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 208, 120, 17, 17)
$Label3 = GUICtrlCreateLabel("Label3", 152, 152, 36, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 208, 152, 17, 17)
$Label4 = GUICtrlCreateLabel("Label4", 152, 184, 36, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 208, 184, 17, 17)
$Label5 = GUICtrlCreateLabel("Label5", 152, 216, 36, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 208, 216, 17, 17)
$Label6 = GUICtrlCreateLabel("Label6", 152, 248, 36, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 208, 248, 17, 17)
$TabSheet2 = GUICtrlCreateTabItem("常用工具")
$Label7 = GUICtrlCreateLabel("Label7", 168, 96, 36, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 248, 96, 17, 17)
$Label8 = GUICtrlCreateLabel("Label8", 168, 144, 36, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 248, 136, 17, 17)
$Label9 = GUICtrlCreateLabel("Label9", 168, 184, 36, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox9", 256, 176, 17, 17)
$Label10 = GUICtrlCreateLabel("Label10", 168, 224, 42, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Checkbox10", 256, 224, 17, 17)
$Label11 = GUICtrlCreateLabel("Label11", 168, 264, 42, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Checkbox11", 256, 264, 17, 17)
$TabSheet3 = GUICtrlCreateTabItem(" 自编工具")
GUICtrlSetState(-1,$GUI_SHOW)
$Label12 = GUICtrlCreateLabel("Label12", 160, 96, 42, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Checkbox12", 264, 88, 17, 25)
$Label13 = GUICtrlCreateLabel("Label13", 168, 160, 42, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Checkbox13", 264, 152, 17, 17)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Button1", 536, 72, 81, 33)
$Button2 = GUICtrlCreateButton("Button2", 536, 112, 81, 33)
$Button3 = GUICtrlCreateButton("Button3", 536, 152, 81, 33)
$Button4 = GUICtrlCreateButton("Button4", 536, 192, 81, 33)
$Button5 = GUICtrlCreateButton("Button5", 536, 232, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
|