Counter auf Basis einer Grafik Hier wird demonstriert, wie sich ein grafischer Counter auf Basis einer Bitmap erstellen läßt.
Autor:   Heinz Prelle	Bewertung:	Views:  15.777
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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.

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

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.