GUI窗口只有在点过之后才出边框,,为什么?(已解决)

iori2882

刚运行的时候如下图 注意TP1和TP2下面的框~~~



                                    然后鼠标在上下2个框各点一下 才变成



为什么啊????下面是源码

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#region ### START Koda GUI section ### Form=
OnAutoItExitRegister("Quit")
$Form1 = GUICreate("Form1", 344, 230, 382, 138)
Dim $dll
$bf = "vista.skf"
_SkinGUI("SkinCrafterDll.dll", $bf, $Form1)
$Tab1 = GUICtrlCreateTab(0, 0, 329, 193)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Input1 = GUICtrlCreateInput("", 16, 64, 121, 21)
$Input2 = GUICtrlCreateInput("", 16, 120, 121, 21)
$Label1 = GUICtrlCreateLabel("TP1", 56, 40, 52, 17)
$Label2 = GUICtrlCreateLabel("TP2", 56, 96, 52, 17)
$Button1 = GUICtrlCreateButton("确定", 152, 64, 59, 25)
$Button2 = GUICtrlCreateButton("确定", 152, 120, 59, 25)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
GUICtrlCreateTabItem("")
$Date1 = GUICtrlCreateDate("2011/10/10 11:05:2", 192, 200, 138, 21)
$Progress1 = GUICtrlCreateProgress(16, 200, 134, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Func jiaoshi();==========================================================查询教师名部分============================================================================
        TrayTip("如何使用", "", 5)
EndFunc   ;==>jiaoshi
;======================================================================查询教师名部分结束=======================================================================


Func bumen();==========================================================查询部门部分==================================================================================
        TrayTip("如何使用", "", 5)
EndFunc   ;==>bumen
;======================================================================查询部门部分结束==========================================================================


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        ExitLoop
                Case $Button1
                        jiaoshi()
                Case $Button2
                        bumen()
                        
        EndSwitch
WEnd


Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
        $dll = DllOpen($SkincrafterDll)
        DllCall($dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
        DllCall($dll, "int:cdecl", "InitDecoration", "int", 1)
        DllCall($dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
        DllCall($dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
        DllCall($dll, "int:cdecl", "ApplySkin")
EndFunc   ;==>_SkinGUI



Func Quit()
        GUISetState(@SW_HIDE)
        DllCall($dll, "int:cdecl", "DeInitDecoration")
        DllCall($dll, "int:cdecl", "RemoveSkin")
        DllClose($dll)
        ;DirRemove(@AppDataDir&"\skin",1)
        Exit
EndFunc   ;==>Quit

这是和脚本放在同一目录的2个文件

happytc

不上源码，那个帮你猜呀

iori2882

不上源码，那个帮你猜呀
happytc 发表于 2011-10-10 13:45

...我上了啊 大家都看不见么?

zcx880517

主题的原因吧。。不用主题显示正常

happytc

把调用皮肤那行放在guisetstate()之后

zcx880517

换个主题吧。。

iori2882

把调用皮肤那行放在guisetstate()之后
happytc 发表于 2011-10-10 14:05

额 谢谢你啊 解决了~~~

iori2882

换个主题吧。。
zcx880517 发表于 2011-10-10 14:09

谢谢你 解决方法在5楼 你提供的皮肤我也下载了 谢谢了