关于GUI窗口和进度条的,有哪位高人会啊?
本帖最后由 s77m72 于 2009-4-28 09:51 编辑做出来的效果如下图的。。 用皮肤,或是用图片做,不过可能会有些闪烁。 用皮肤或GDI 这是我刚才用图片做的,快了闪烁比较大。介意你还是用皮肤做。
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
dim $s = 1,$Pic2
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 614, 438, 192, 114, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@ScriptDir&"\背景.jpg", 0, 0, 613, 436)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable ( "myadlib" , 1000 )
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func myadlib()
GUICtrlSetState ( $Pic2, $GUI_HIDE )
$Pic2 = GUICtrlCreatePic(@ScriptDir&"\进度.jpg", 18, 388, 5.76*$s, 29)
GUICtrlSetState ( $Pic2, $GUI_SHOW )
$s +=1
if $s=101 then AdlibDisable ( )
EndFunc
还有别的方法吗? LZ提供下背景图片 什么图片都可以就是要做出这样的效果。。 还有没有人会别的方法吗? #include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 466, 202, -1, -1, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("bg.jpg", 0, 0, 465, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Progress1 = GUICtrlCreateProgress(24, 144, 417, 25)
GUICtrlSetData(-1, 20)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
高手,谢谢。。。 又学到了一招、、、 好东西。收了。 回复 9# 78391493
谢谢学习了。 MARK备用………… 下来学习一下,谢谢楼主,辛苦了
页:
[1]
2