meinste den?
PHP Code:
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
XPStyleToggle(1)
$Form1 = GUICreate("Form1", 652, 274, 192, 124)
$Progress1 = GUICtrlCreateProgress(40, 40, 529, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Progress2 = GUICtrlCreateProgress(40, 112, 529, 33)
GUICtrlSetColor(-1, 0xFF0000)
$Progress3 = GUICtrlCreateProgress(40, 184, 529, 33)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFF00)
XPStyleToggle(0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While GUIGetMsg() <> -3
GUICtrlSetData($Progress1, Random(0, 100, 1))
GUICtrlSetData($Progress2, Random(0, 100, 1))
GUICtrlSetData($Progress3, Random(0, 100, 1))
Sleep(250)
WEnd
Func XPStyleToggle($OnOff = 1)
Local Static $XS_n
If Not StringInStr(@OSType, "WIN32_NT") Then Return 0
If $OnOff Then
$XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
Return 1
ElseIf IsArray($XS_n) Then
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
$XS_n = ""
Return 1
EndIf
Return 0
EndFunc ;==>XPStyleToggle
oder hier ein anderes,
PHP Code:
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 652, 274, 192, 124)
$Progress1 = GUICtrlCreateProgress(40, 40, 529, 33)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; Classic-Style
$Progress2 = GUICtrlCreateProgress(40, 112, 529, 33)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; Standard-Windows-Style
$Progress3 = GUICtrlCreateProgress(40, 184, 529, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While GUIGetMsg() <> -3
GUICtrlSetData($Progress1, Random(0, 100, 1))
GUICtrlSetData($Progress2, Random(0, 100, 1))
GUICtrlSetData($Progress3, Random(0, 100, 1))
Sleep(250)
WEnd