Unser heutiger Tipp zeigt, wie sich ein grafischer Counter auf Basis einer Bitmap erstellen läßt. Die einzelnen Ziffern der Grafik sind hierbei in einem einzigen Bitmap-Bild gespeichert, wobei jede Ziffer gleich groß ist. Außerdem müssen die Ziffern direkt nebeneinader angeordnet sein. Um einen bestimmten Zählerstand anzuzeigen, werden nun die benötigten Ziffern aus der Quell-Bitmap in das Ziel-Picture Steuerlement übertragen. ' Zählerstand anzeigen Public Sub ShowCounter(Src As Picture, Dest As Picture, _ AnzeigenWeite As Integer, Zahl As Long) Dim Anzeige As String Dim Nullen As Integer Dim GrafikHoehe As Single Dim DigitalWert As Integer Dim ZahlenPosition As Integer Nullen = AnzeigeWeite - Len(Trim(Zahl)) For I = 0 To Nullen - 1 Anzeige = Anzeige & "0" Next Anzeige = Anzeige & Trim(Str(Zahl)) For I = 0 To AnzeigeWeite - 1 DigitalWert = Val(Mid(Anzeige, I + 1, 1)) If DigitalWert = 0 Then ZahlenPosition = 10 Else ZahlenPosition = DigitalWert End If With Src Dest.PaintPicture .Image, I * (.ScaleWidth / 10), _ 0, .ScaleWidth / 10, .ScaleHeight / 2, _ (ZahlenPosition - 1) * (.ScaleWidth / 10), _ 0, .ScaleWidth / 10, .ScaleHeight / 2 End With Next End Sub Am besten Sie probieren das Beispielsprogramm einmal aus. Dieser Tipp wurde bereits 15.779 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. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! 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. |