<\/p>\n
Autor: Christoph Spielmann, Düsseldorf<\/p>\n
<\/b><\/p>\n
Gut Ding will Weile haben, denkt sich mancher Programmierer, wenn er bei der Programmierung eines Importvorgangs schon vermutet, dass der spätere Benutzer seines Werks wohl die eine oder andere Tasse Kaffee trinken wird, bis die Daten korrekt in den Tabellen untergebracht sind. Bei länger andauernden Vorgängen ist es sinnvoll, dem Benutzer ehrlich mitzuteilen, dass der Vorgang noch länger dauert. Er wird darauf aufmerksam gemacht, dass etwas passiert, und wartet geduldiger auf den Abschluss der Arbeit.<\/b><\/p>\n
Die denkbar schlechteste Lösung bei der Abarbeitung länger dauernder Vorgänge ist es, dem Benutzer keine Information über den aktuellen Stand zu geben. Generell sollten alle Vorgänge, die länger als drei Sekunden dauern, entsprechend dokumentiert werden.<\/p>\n
Bei sehr langen Vorgängen, die beispielsweise mehrere Minuten dauern, sollte dem Benutzer außerdem die geschätzte Restzeit bis zum Ende angezeigt werden. So kann der Benutzer den Vorgang besser einschätzen und ggf. seine Arbeit darauf einstellen.<\/p>\n
Die hier vorgestellte Lösung gibt Ihnen die Möglichkeit, sowohl den prozentualen Fortschritt als auch die noch benötigte Restdauer anzeigen zu lassen. Darüber hinaus können Sie den Vorgang abbrechen oder anhalten. <\/p>\n
![](\"..\/fileadmin\/_temp_\/{CE02203C-32B8-4C23-830D-BD119A1A9A43}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die fertige Fortschrittsanzeige<\/span><\/b><\/p>\n Letzteres ist insbesondere bei sehr langen Importvorgängen sinnvoll, die mehrere Tage dauern und vorzugsweise über Nacht ausgeführt werden sollen.<\/p>\n Tagsüber können Sie den Vorgang anhalten, damit Sie problemlos andere Aufgaben mit Ihrem PC erledigen können. Bild 1 zeigt Ihnen den Aufbau der fertigen Fortschrittsanzeige.<\/p>\n Damit Sie die Fortschrittsanzeige problemlos in Ihre Datenbanken übernehmen können, ist der Aufbau allgemein gehalten. Aus dem gleichen Grund befindet sich der komplette VBA-Programmcode in dem Formularmodul der Fortschrittanzeige, sodass Sie lediglich ein einzelnes Formular in Ihre Datenbank kopieren müssen.<\/p>\n Zum Erstellen der Fortschrittsanzeige gehen Sie wie folgt vor:<\/p>\n Innerhalb des Formulars platzieren Sie anschließend ein Rechteck. Verwenden Sie dazu das Rechteck-Werkzeug der Toolbox. Geben Sie dem neuen Steuerelement den Namen recFrame. Anschließend geben Sie dem Rahmen eine weiße Hintergrundfarbe sowie einen vertieften Spezialeffekt. Letzteres stellen Sie mit der gleichnamigen Eigenschaft des Rechtecks ein.<\/p>\n <\/b><\/p>\n Bild 2: Die Anordnung der Rechtecke zur Darstellung des prozentualen Fortschritts<\/span><\/b><\/p>\n Innerhalb dieses Frames erstellen Sie ein weiteres Rechteck namens recProgressBar. Färben Sie dieses Rechteck blau ein und passen Sie es pixelgenau in den Frame ein. Die Breite sollte hierbei über den kompletten Frame gehen, was der späteren Darstellung von 100% entspricht. Bild 2 zeigt Ihnen den Aufbau des Balkens in der Entwurfsansicht.<\/p>\n Bei der Positionierung helfen Ihnen die Pfeiltasten der Tastatur. Bei gedrückt gehaltener Strg-Taste können Sie das markierte Steuerelement pixelweise verschieben. Die Größe ändern Sie, indem Sie zusätzlich die Umschalttaste drücken. <\/p>\n Anschließend platzieren Sie mittig auf dem Balken ein Bezeichnungsfeld mit transparentem Hintergrund. Geben Sie dem Steuerelement den Namen lblPercent und richten Sie den Inhalt zentriert aus. Als Text geben Sie lediglich einen Punkt ein. Dieser wird später vom Programmcode durch die Prozentangabe ersetzt.<\/p>\n <\/b><\/p>\n Bild 3: Das Formular frmProgressBar in der Entwurfsansicht<\/span><\/b><\/p>\n Danach positionieren Sie unterhalb des Balkens noch zwei Bezeichnungsfelder namens lblTime und lblInfo. Beide Steuerelemente sollten ebenfalls einen transparenten Hintergrund haben. Ersteres zeigt später die noch verbleibende Restzeit an. Das zweite Steuerelement dient der Anzeige eines Textes, der den aktuellen Vorgang dokumentiert.<\/p>\n Abschließend ordnen Sie unterhalb der Bezeichnungsfelder noch zwei Schaltflächen an, die Sie mit Abbrechen und Pause beschriften. Die Namen lauten btnCancel und btnBreak. Daneben setzen Sie noch ein Textfeld namens txtFocus, dessen Höhe und Breite Sie in 0 ändern. Dieses Feld wird dazu benötigt, den Focus von den beiden Schaltflächen wegzubewegen, um diese beispielsweise auszublenden.<\/p>\n Die Designarbeiten sind damit abgeschlossen. Bild 3 zeigt Ihnen noch einmal das komplette Formular zusammen mit den Formulareigenschaften in der Entwurfsansicht.<\/p>\n Speichern Sie es abschließend unter dem Namen frmProgressBar.<\/p>\n Die Steuerung der Fortschrittsanzeige erfolgt mit Hilfe von VBA-Programmcode. Zur Erfassung des Codes wechseln Sie mit Hilfe des Code-Symbols in den VBA-Editor des Klassenmoduls, das mit dem Formular verbunden ist.<\/p>\n <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Im Kopf platzieren Sie die folgenden Deklarationsanweisungen:<\/p>\n Den Zweck dieser Variablen lernen Sie später noch kennen.<\/p>\n Die erste Prozedur SetPercentage (s. Quellcode 1) hat die Aufgabe, die prozentuale Darstellung des Balkens zu steuern. Hierzu wird die Breite des blauen Rechtecks entsprechend der aktuellen Prozentzahl variiert: <\/p>\n Zuerst wird die Prozentzahl in das entsprechende Bezeichnungsfeld lblPercent geschrieben. Sofern der Fortschritt noch unter 50% liegt, wird der Text schwarz dargestellt.<\/p>\n Oberhalb von 50% erfolgt eine blaue Darstellung. So hebt sich der Text optimal vom Hintergrund ab.<\/p>\n Im letzten Teil erfolgt schließlich die Berechnung der Balkenbreite. Hierzu ist es erforderlich, die maximale Breite des Balkens zu kennen, damit die prozentuale Darstellung korrekt erfolgen kann. <\/p>\n Diese liest die Prozedur aus der privaten Variable InitialBarWidth aus, die im Load-Ereignis des Klassenmoduls gesetzt wird (s. Quellcode 2).<\/p>\n Für die Berechnung der Restdauer ist die Prozedur SetTime zuständig (s. Quellcode 3).<\/p>\n Sofern die Prozentzahl gleich 0 ist, schreibt sie den Text „Berechne Restzeit“ in das Bezeichnungsfeld lblTime.<\/p>\n Andernfalls berechnet sie die Dauer für die Abarbeitung eines einzelnen Prozentpunkts und schätzt damit die Dauer für die noch verbleibenden Prozente ab.<\/p>\n Zur Berechnung der Restdauer benötigt die Prozedur den Startzeitpunkt. Diesen liest sie aus der Variablen m_StartTimer aus. Diese wird innerhalb der Prozedur InitProgress gesetzt, die Sie später noch kennen lernen.<\/p>\n Zusätzlich wird mittels m_RestartPercent-Variable berücksichtigt, ob der Vorgang zwischenzeitlich mittels Pausenfunktion angehalten wurde. Die Pausenzeit darf schließlich bei der Berechnung der Restlaufzeit nicht berücksichtigt werden.<\/p>\n Um die Berechnung korrekt auszuführen, wird beim Klick auf die Pause-Schaltfläche die Ereignisprozedur aus Quellcode 4 ausgeführt.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die MsgBox-Funktion hält den Vorgang an, bis der Benutzer das Dialogfenster mit OK schließt. Danach wird der Timer auf die aktuelle Zeit gesetzt sowie die Prozentzahl bei Fortsetzung des Vorgangs in der Variablen m_RestartPercent vermerkt.<\/p>\n Formatierung der Restdauer<\/b><\/p>\n Die Berechnung der Restdauer erfolgt zunächst in Sekunden. Um dem Benutzer eine vernünftige Darstellung mit Sekunden, Minuten, Stunden und Tagen zu präsentieren, erfolgt eine entsprechende Umrechnung durch die Prozedur SecondsToTime (s. Quellcode 5).<\/p>\n Die Prozedur verwendet den 1.1.2000 als Referenzdatum und addiert hierzu die Anzahl der Sekunden mittels DateAdd-Funktion. Aus der Differenz zwischen den beiden Datumswerten lassen sich dann die Tage, Stunden, Minuten und Sekunden berechnen und anzeigen.<\/p>\n Die bis jetzt vorgestellten Prozeduren werden als Unterprozeduren von den beiden Hauptprozeduren InitProgress und UpdateProgress aufgerufen. Die erste Prozedur (s. Quellcode 6) initialisiert den Vorgang:<\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Als Parameter der öffentlichen Prozedur werden eine Fensterbeschriftung, die maximale Anzahl der Schritte sowie zwei Boolean-Variablen übergeben. Die Boolean-Variablen bestimmen, ob der Benutzer die Möglichkeit zum Abbruch oder zum Pausieren des Vorgangs haben soll. Dementsprechend werden die beiden Schaltflächen Abbrechen bzw. Pause ein- oder ausgeblendet.<\/p>\n Vorher erfolgt noch eine Initialisierung der privaten Variablen sowie die Aktualisierung auf 0 Prozent. Zur Erinnerung: Direkt nach dem Start ist der Balken noch über die volle Breite gezogen, was einem Wert von 100 Prozent entspricht.<\/p>\n Aktualisierung<\/b><\/p>\n Die Aktualisierung der Fortschrittsanzeige übernimmt die zweite Prozedur namens UpdateProgress (s. Quellcode 7).<\/p>\n Als Parameter werden die aktuelle Schritt-Nummer sowie ein Informationstext angegeben.<\/p>\n Der Cancel-Parameter ist als ByRef deklariert, da hiermit die Information über einen eventuellen Abbruch an die aufrufende Prozedur zurück-geliefert wird. Ein Beispiel hierzu erhalten Sie später.<\/p>\n Die Prozedur prüft zunächst, ob die maximale Anzahl der Steps (m_MaxSteps) nicht überschritten wird. Dies kann beispielsweise bei einem fehlerhaften Aufruf der Prozedur passieren.<\/p>\n Wenn die Angabe in Ordnung ist, berechnet die Prozedur den prozentualen Fortschritt und aktualisiert die Anzeige. Die DoEvents-Anweisung gibt Access die Möglichkeit, den Bildschirm zu aktualisieren. Hierdurch sind die änderungen sofort sichtbar.<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Bei einem Klick auf die Abbrechen-Schaltfläche führt Access die Ereignisprozedur aus Quellcode 8 aus.<\/p>\n Beim Klick wird die Variable m_Cancel auf True gesetzt, sodass diese Information beim nächsten Aufruf der UpdateProgress an die aufrufende Prozedur weitergegeben werden kann.<\/p>\n Anschließend wird der Focus auf das Textfeld txtFocus gesetzt, sodass die Abbrechen-Schaltfläche anschließend deaktiviert werden kann.<\/p>\n Die letzte Prozedur CloseProgress sorgt dafür, dass die Fortschrittsanzeige geschlossen wird (s. Quellcode 9).<\/p>\n Den Einsatz der Fortschrittsanzeige demonstriert die Prozedur aus Quellcode 10, die Sie auch im Formular frmTest der Beispieldatenbank finden: Hier werden mit Hilfe einer Schleife Datensätze angelegt.<\/p>\n Vor dem Durchlauf der Schleife wird zunächst das Formular frmProgressBar geöffnet. Anschließend erfolgt eine Initialisierung mittels InitProgress-Methode.<\/p>\n Die Aktualisierung der Anzeige erfolgt nur bei jedem hundertsten Schritt (Step MOD 100 = 0), da ansonsten die Aktualisierung in der Summe mehr Zeit als der eigentliche Vorgang in Anspruch nehmen würde.<\/p>\n Nach jeder Aktualisierung prüft die Prozedur, ob der Benutzer den Vorgang abgebrochen hat. Hierzu prüft sie den Cancel-Parameter auf den Wert True.<\/p>\n Abschließend ruft sie die CloseProgress-Methode auf, die die Fortschrittsanzeige vom Bildschirm entfernt.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Fortschrittsanzeige00.mdb<\/p>\n Fortschrittsanzeige00.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{CE02203C-32B8-4C23-830D-BD119A1A9A43}\/pic002.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{CE02203C-32B8-4C23-830D-BD119A1A9A43}\/pic003.png\")
<\/p>\nPrivate Sub SetPercentage(Percent As Integer)\r\n Me.lblPercent.Caption = CStr(Percent) + \"%\"\r\n If Percent < 50 Then\r\n Me.lblPercent.ForeColor = QBColor(1) ''Blau\r\n Else\r\n Me.lblPercent.ForeColor = QBColor(15) ''Weiß\r\n End If\r\n Me.recProgressBar.Width = m_InitialBarWidth \/ 100 _ * Percent\r\n m_CurrentPercent = Percent\r\nEnd Sub<\/pre>\n
Private Sub Form_Load()\r\n m_InitialBarWidth = Me.recProgressBar.Width\r\nEnd Sub<\/pre>\n
Private Sub SetTime(Percent As Integer)\r\n Dim SecondsForOnePercent As Double\r\n If Percent = 0 Then\r\n Me.lblTime.Caption = \"Berechne Restzeit\"\r\n Else\r\n SecondsForOnePercent = (Timer - m_StartTimer) \/ (Percent - m_RestartPercent)\r\n \r\n Me.lblTime.Caption = \"Restdauer: \" + SecondsToTime(Fix((100 - Percent) * SecondsForOnePercent) + 1)\r\n End If\r\nEnd Sub<\/pre>\n
Private m_InitialBarWidth As Long\r\nPrivate m_StartTimer As Long\r\nPrivate m_MaxSteps As Long\r\nPrivate m_Cancel As Boolean\r\nPrivate m_RestartPercent As Integer\r\nPrivate m_CurrentPercent As Integer<\/pre>\n
Private Sub btnBreak_Click()\r\n MsgBox \"Bitte klicken Sie auf OK, um den \" _ & \"Vorgang fortzusetzen\", vbInformation\r\n m_StartTimer = Timer\r\n m_RestartPercent = m_CurrentPercent\r\nEnd Sub<\/pre>\n
Private Function SecondsToTime(Seconds As Long) As _ String\r\n Dim MyDate As Date\r\n Dim Result As String\r\n Dim Tage As Long\r\n MyDate = DateAdd(\"s\", Seconds, #1\/1\/2000#)\r\n Tage = DateDiff(\"d\", #1\/1\/2000#, MyDate)\r\n If Tage > 0 Then\r\n Result = CStr(Tage) + \" Tage, \"\r\n End If\r\n If Hour(MyDate) > 0 Then\r\n Result = Result + Format(Hour(MyDate), \"0\")\r\n Result = Result + IIf(Hour(MyDate) = 1, _ \" Stunde, \", \" Stunden, \")\r\n End If\r\n If Minute(MyDate) > 0 Then\r\n Result = Result + Format(Minute(MyDate), \"0\")\r\n Result = Result + IIf(Minute(MyDate) = 1, _ \" Minute, \", \" Minuten, \")\r\n End If\r\n Result = Result + Format(Second(MyDate), \"0\")\r\n Result = Result + IIf(Second(MyDate) = 1, _ \" Sekunde, \", \" Sekunden\")\r\n SecondsToTime = Result\r\nEnd Function<\/pre>\n
Public Sub InitProgress(Caption As String, _ MaxSteps As Long, AllowCancel As Boolean, _ AllowBreak As Boolean)\r\n m_Cancel = False\r\n m_MaxSteps = MaxSteps\r\n m_StartTimer = Timer\r\n Me.Caption = Caption\r\n SetPercentage (0)\r\n Me.txtFocus.SetFocus\r\n If AllowCancel Then\r\n Me.btnCancel.Visible = True\r\n Else\r\n Me.btnCancel.Visible = False\r\n End If\r\n If AllowBreak Then\r\n Me.btnBreak.Visible = True\r\n Else\r\n Me.btnBreak.Visible = False\r\n End If\r\nEnd Sub<\/pre>\n
Public Sub UpdateProgress(Step As Long, _ Info As String, ByRef Cancel As Boolean)\r\n Dim Percent As Integer\r\n If Step < m_MaxSteps Then\r\n Percent = _ CInt(Step \/ m_MaxSteps * 100)\r\n Else\r\n Percent = 100\r\n End If\r\n SetPercentage (Percent)\r\n SetTime (Percent)\r\n Me.lblInfo.Caption = Info\r\n If m_Cancel = True Then\r\n Cancel = True\r\n End If\r\n DoEvents\r\nEnd Sub<\/pre>\n
Private Sub btnCancel_Click()\r\n m_Cancel = True\r\n Me.txtFocus.SetFocus\r\n Me.btnCancel.Enabled = False\r\nEnd Sub<\/pre>\n
Public Sub CloseProgress()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Private Sub btnDemo1_Click()\r\n Dim MyProgressBar As Form_frmProgressBar\r\n Dim Step As Long\r\n Const MaxSteps = 20000\r\n Dim Cancel As Boolean\r\n DoCmd.OpenForm (\"frmProgressBar\")\r\n Set MyProgressBar = Forms!frmProgressBar\r\n With MyProgressBar\r\n .InitProgress \"Datensätze werden angelegt\", _ MaxSteps, True, True\r\n For Step = 1 To MaxSteps\r\n If Step Mod 100 = 0 Then\r\n .UpdateProgress Step, _ \"Lege Datensatz \" + CStr(Step) + _ \" an.\", Cancel\r\n If Cancel = True Then\r\n Exit For\r\n Else\r\n CreateRecord\r\n End If\r\n End If\r\n Next\r\n .CloseProgress\r\n End With\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n