Hallo gero & gary !
@gero
Vielen Dank für deine Mühe und sorry für das späte Feedback. Genau das siollte es sein, ein im Grunde überflüssiger Showeffekt,
Dein Script hat mich motiviert ein bißchen zu experimentieren, heraus kam dabei
Code: Select all
#SingleInstance, Force
Gui, Fortschrittsbalken:New, -Caption, +Border, -SysMenu, +AlwaysOnTop
Gui, Color, 000000,
Gui, Font, s20 cFFFFFF Arial bold
Gui, Add, Text,, Datenbank wird geöffnet !
Gui, Add, Text,, Bitte warten
maxRange := 16
Zaehler := 0
Gui, Add, Progress, xm w400 h20 c<silver Range0-%maxRange% -Smooth vMeinFortschritt, 0
Gui, Show
FortschrittGuiID := WinExist("A")
SetTimer, Fortschrittsintervall, 1000
Return
Fortschrittsintervall:
Gui, Fortschrittsbalken:Default ;>>>> Beachten
if (Zaehler < maxRange)
{
GuiControl, , MeinFortschritt, +1
;GuiControl, +Redraw, Fortschrittsbalken
Zaehler := Zaehler + 1
;MsgBox % Zaehler
}
else
{
SetTimer, Fortschrittsintervall, Off
WinClose, ahk_id %FortschrittGuiID%
}
Return
exit[/code
Funktioniert prima, nur was ich nicht gebacken bekommes, ist die beiden Textzeilen zu zentrieren, du kannst da bestimmt helfen.
@gary
Ja, so einen Blödsinn mag ich, der Gimmick aus der Mottenkiste gefäält mir.
Schönen Abend