Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0278: Selbstgemachter Progressbar

 von 

Beschreibung 

Der Progressbar in VB ist immer blau, dieser hier zwar auch, jedoch kann er leicht den eigenen Befürfnissen angepasst werden, da er nicht als OCX sondern als einfacher Code auftritt.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [1,99 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: Horizontale Scrollbar "HScroll1"

Option Explicit

Private Sub HScroll1_Change()
  Call ProgressBar(HScroll1.Value, HScroll1.Min, HScroll1.Max)
End Sub

Private Sub HScroll1_Scroll()
  Call ProgressBar(HScroll1.Value, HScroll1.Min, HScroll1.Max)
End Sub

Private Sub ProgressBar(Prg%, Min%, Max%)
  Dim Fx&
    
    If Prg < Min Or Prg > Max Or Max <= Min Then Exit Sub
    Prg = Int(100 / (Max - Min)) * (Prg - Min)
    
    With Picture1
      Picture1.Cls
      If Prg > 0 Then
        Fx = (Picture1.ScaleWidth - 2) / 100 * Prg
        Picture1.Line (0, 0)-(Fx + 1, Picture1.ScaleHeight - 1), _
                       &H8000000D, BF
        .CurrentX = Fx + 3
        .CurrentY = 0
        Picture1.Print Trim$(CStr(Prg) & " %")
      End If
    End With
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 4 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von am 14.06.2006 um 13:58

Und wie funktioniert das? Die ganze app friert ein und kein Fortschritt der Prograss bar ... ?

Kommentar von B am 22.10.2003 um 09:58

Vieleicht sollte man die AutoRedraw - Eigenschaft für die Picturebox auf True setzten.
Schade, das ab ca. 95% die Prozentzahl nicht mehr zu lesen ist.

Kommentar von A am 28.03.2001 um 09:47

Bug im TIP 0278 Progress Bar
change to:
Prg = Int(100 / (Max - Min) * (Prg - Min))

Kommentar von Freecoder am 14.11.2000 um 22:02

Interessante Art eine Fortschrittsanzeige zu machen... :-)