Rubrik: Controls · StatusBar/ProgressBar | VB-Versionen: VB4, VB5, VB6 | 13.11.00 |
Fortschrittsanzeige mit VB-Boardmitteln Seit Visual-Basic 4.0 ist es ohne großen Aufwand möglich mit Hilfe der CommonControls-ActiveX-Komponente eine Fortschrittsanzeige (ProgressBar) zu r... | ||
Autor: Dieter Otter | Bewertung: | Views: 37.487 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Seit Visual-Basic 4.0 ist es ohne großen Aufwand möglich mit Hilfe der CommonControls-ActiveX-Komponente eine Fortschrittsanzeige (ProgressBar) zu realisieren.
In unserem heutigen Tipp zeigen wir Ihnen, wie Sie eine Fortschrittsanzeige mit reinen Standard VB-Boardmitteln erstellen können - ohne das Einbinden der OCX-Datei.
Um nun den aktuellen Fortschritt per Code anzuzeigen rufen Sie nachfolgende Prozedur auf:
Sub ShowProgress(Status As Control, AktDat As Long, _ AnzDat As Long) Dim Proz As Integer Proz = Int(AktDat / AnzDat * 100 + 0.5) If(Proz < 0) Then Proz = 0 If(Proz > 100) Then Proz = 100 Status.Caption = _ String$(Int(Val(Status.Tag) / 100 * Proz + 0.5), "n") End Sub ' Beispiel für den Aufruf For I = 1 To 100 ShowProgress Label1, I, 100 Next I