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

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 23 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.