VB 5/6-Tipp 0278: Selbstgemachter Progressbar
von ActiveVB
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: | Verwendete API-Aufrufe: keine | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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... :-)