VB 5/6-Tipp 0303: ProgressBar-Demo
von Daniel Noll
Beschreibung
Demonstration der grundlegenden Methoden des ProgressBars
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 Projekt1.vbp ------------- ' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX)' wird benötigt. '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Rahmensteuerelement "Frame1" ' Steuerelement: Schaltfläche "cmdStop" auf Frame1 ' Steuerelement: Schaltfläche "cmdStart" auf Frame1 ' Steuerelement: Rahmensteuerelement "Frame3" auf Frame1 ' Steuerelement: Horizontale Scrollbar "HScroll2" auf Frame3 ' Steuerelement: Beschriftungsfeld "lblmax" auf Frame3 ' Steuerelement: Beschriftungsfeld "lblmin" auf Frame3 ' Steuerelement: Beschriftungsfeld "Label2" auf Frame3 ' Steuerelement: Beschriftungsfeld "Label1" auf Frame3 ' Steuerelement: Rahmensteuerelement "Frame2" auf Frame1 ' Steuerelement: Optionsfeld-Steuerelement "optnormal" auf Frame2 ' Steuerelement: Optionsfeld-Steuerelement "optSmooth" auf Frame2 ' Steuerelement: Fortschrittsanzeige "prg1" Dim Scroll As Boolean Private Sub cmdStart_Click() HScroll2.Enabled = False Scroll = True cmdStart.Enabled = False cmdStop.Enabled = True For i = 1 To lblmax.Caption If i Mod 100 = 0 Then DoEvents prg1.Value = i If Scroll = False Then Exit For Next i Scroll = False prg1.Value = 0 cmdStart.Enabled = True cmdStop.Enabled = False HScroll2.Enabled = True End Sub Private Sub HScroll1_Change() lblmin.Caption = HScroll1.Value End Sub Private Sub HScroll1_Scroll() lblmin.Caption = HScroll1.Value End Sub Private Sub cmdStop_Click() Scroll = False cmdStart.Enabled = True cmdStop.Enabled = False End Sub Private Sub HScroll2_Change() lblmax.Caption = HScroll2.Value prg1.Max = HScroll2.Value End Sub Private Sub HScroll2_Scroll() lblmax.Caption = HScroll2.Value End Sub Private Sub optnormal_Click() prg1.Scrolling = ccScrollingStandard End Sub Private Sub optSmooth_Click() prg1.Scrolling = ccScrollingSmooth End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Projekt1.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 2 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 Rainer Assent am 29.03.2007 um 16:42
Das Beispiel zeigt kurz und prägnant die Funktionen der Progressbar. Prima!
Kommentar von Bob Watson am 28.12.2001 um 09:12
I am sorry that I am not writing this in German, but I don't know enough of your language. I am trying to figure out how to use the progressbar and at the same time copying a large file. Something like when you download a file from the internet and you see the progress of how much has been downloaded and how much is left.
I would really appreciate any assistance that you or anybody else there can give me.
Sincerely,
Bob "Doc" Watson