GUI窗口只有在点过之后才出边框,,为什么?(已解决)
本帖最后由 iori2882 于 2011-10-10 14:38 编辑刚运行的时候如下图 注意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 发表于 2011-10-10 13:45 http://www.autoitx.com/images/common/back.gif
...我上了啊 大家都看不见么? 主题的原因吧。。不用主题显示正常 把调用皮肤那行放在guisetstate()之后 换个主题吧。。 把调用皮肤那行放在guisetstate()之后
happytc 发表于 2011-10-10 14:05 http://www.autoitx.com/images/common/back.gif
额 谢谢你啊 解决了~~~ 换个主题吧。。
zcx880517 发表于 2011-10-10 14:09 http://www.autoitx.com/images/common/back.gif
谢谢你 解决方法在5楼 你提供的皮肤我也下载了 谢谢了
页:
[1]