Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0303: ProgressBar-Demo

 von 

Beschreibung 

Demonstration der grundlegenden Methoden des ProgressBars

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [2,32 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 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-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 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