Wenn man innerhalb seines Projektes die "Microsoft Windows Common Controls" nur für die Anzeige eines Fortschrittbalken verwendet, sollte man überlegen, ob man nicht auf diese Controls-Sammlung verzichtet, um so bspw. das Setup der Anwendung "kleiner" zu halten. Einen Fortschrittsbalken kann man nämlich auch mit reinen VB-Boardmitteln realisieren - ohne hierbei zusätzliche "externe" Controls verwenden zu müssen. Hierzu benötigt man lediglich zwei übereinanderliegende Shape-Controls:
Und so geht's: Private Sub Form_Load() With Shape1 ' Eigenschaften für Shape1 festlegen (Rahmen) .BackColor = vbWhite .BackStyle = 1 .BorderStyle = 1 .BorderColor = vbBlack ' Shape 2 korrekt positionieren Shape2.Move .Left, .Top, 0, .Height End With ' Eigenschaften des Fortschrittsbalken (Shape2) festlegen With Shape2 .Visible = False .BackStyle = 1 .BackColor = vbBlue .BorderStyle = 0 ' Transparent End With End Sub ' Fortschrittsbalken anzeigen Private Sub ShowProgress(ByVal nValue As Long, ByVal nMax As Long) Dim nWidth As Long If nMax > 0 Then ' Breite von Shape2 prozentual zur Breite von Shape2 berechnen With Shape1 nWidth = (nValue / nMax) * .Width ' Sicher ist sicher :-) If nWidth > .Width Then nWidth = nWidth End With ' Fortschrittsbalken anzeigen With Shape2 .Width = nWidth If Not .Visible Then .Visible = True End With End If End Sub Ein kleiner Test: Option Explicit ' API-Deklaration für Warteschleife Private Declare Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim i As Long ' Fortschrittsbalken... For i = 1 To 100 ShowProgress i, 100 Sleep 30 Next i End Sub Dieser Tipp wurde bereits 26.736 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |