Post by just me » 10 Apr 2018, 10:51
Das sähe dann ungefähr so aus:
Code: Select all
T_Progress := 10
Speed := 50
; Progress -----------------------------------------------------------
Progress, 1:ZH50 W400 R0-%speed% FM22 Y200 B1 CBred
Loop, %Speed%
{
Progress, 1:%A_Index%
Sleep, % T_Progress*10
}
Progress, 1:Off
; Gui ----------------------------------------------------------------
Gui, New, -Caption +Border +HwndPBGUI
Gui, Margin, 5, 5 ; kannst Du auch auf 0, 0 setzen, dann gibt es keinen Rand
Gui, Add, Progress, h400 w50 Range0-%speed% CRed Vertical +HwndPBCTL
Gui, Show, y200
Loop, %Speed%
{
GuiControl, , %PBCTL%, %A_Index%
Sleep % T_Progress*10
}
Gui, %PBGUI%:Destroy
ExitApp
Das sähe dann ungefähr so aus:
[code]T_Progress := 10
Speed := 50
; Progress -----------------------------------------------------------
Progress, 1:ZH50 W400 R0-%speed% FM22 Y200 B1 CBred
Loop, %Speed%
{
Progress, 1:%A_Index%
Sleep, % T_Progress*10
}
Progress, 1:Off
; Gui ----------------------------------------------------------------
Gui, New, -Caption +Border +HwndPBGUI
Gui, Margin, 5, 5 ; kannst Du auch auf 0, 0 setzen, dann gibt es keinen Rand
Gui, Add, Progress, h400 w50 Range0-%speed% CRed Vertical +HwndPBCTL
Gui, Show, y200
Loop, %Speed%
{
GuiControl, , %PBCTL%, %A_Index%
Sleep % T_Progress*10
}
Gui, %PBGUI%:Destroy
ExitApp[/code]