Tippseite

»»»»»»»»»»»»»»»»»»» VB - Homepage Tipp 250 »»»»»»»»»»»»»»»»»»» , das viertel Tausend ist erreicht

Picturebox als Fortschrittsanzeige nutzen

Jeder der eigene Programme schreibt, entwickelt seinen eigenen Stil.
Und so gibt es, vorallem Einsteiger, die viel mit OCXen arbeiten
(oftmals unnötiger weise, da die Funktionalität auch über API verfügbar wäre) und es gibt die andere Sorte, die möglichst auf jegliche Zusatz Controls verzichten.

Dieser Tipp zeigt Ihnen, wie Sie eine Fortschrittsanzeige mit Hilfe einer Picturebox realisieren können und sich so das Zusatz Control ersparen.

1. Für unser kleines Testprojekt benötigen Sie
* zwei Commandbutton (Command1 & Command2)
* eine Picturebox (Picture1)
* ein Labelobjekt (Label1) und einen Timer (Timer1)

2. Command1.Caption = "Start"
    Command2.Caption = "Clear"
    Label1.Caption = " 0 %"

3. Platzieren Sie die Picturebox so , wie Sie Ihre Fortschrittsanzeige angezeigt
    bekommen möchten und platzieren Sie das Labelobjekt davon unterhalb, es
    wird die Prozente anzeigen.

4. Definieren Sie unter Allgemein/Deklarationen eine globale Variable
    Dim zähler%

5. Unter Command1_Click geben Sie folgendes ein
    If Timer1.Interval = 50 Then
        Timer1.Interval = 0
        Command1.Caption = "Start"
        Command2.Enabled = True
    Else
        Timer1.Interval = 50
        Command1.Caption = "Stop"
        Command2.Enabled = False
     End If

6. Und unter Command2_Click diese Angaben
    Picture1.Refresh
    zähler% = 0
    Label1.Caption = " 0 %"

7. Unser Timer (der zu Beginn den Intervall 0 behält) bekommt folgende Aufgabe
teiler% = Picture1.Width / 100
zähler% = zähler% + 1

    If zähler% > 100 Then
        Timer1.Interval = 0
        Command2.Enabled = True
        Command1.Caption = "Start"
        Exit Sub
     End If

teiler% = teiler% * zähler%

Picture1.Line (0, 0)-(teiler%, Picture1.Height), QBColor(10), BF
Label1.Caption = zähler% & " %"

8. Damit ist alles notwendige definiert und Sie können zu einem Test übergehen.
Drücken Sie F5 um das Projekt zu starten und drücken sie den Startbutton.

Tipp-Download

Quelle :