Tipp 0166 Pixel-Board (Laufschrift)
Autor/Einsender:
Datum:
  Detlev Schubert
24.11.2001
Entwicklungsumgebung:   VB 6
Dieser Tipp zeigt sehr schön, wie es mit einer PictureBox möglich ist, recht leicht eine Laufschrift im Leuchtreklamenstil zu realisieren. Dazu wird eine Grafik verwendet, die alle Schriftzeichen beinhaltet, und die auch individuell sowohl in Schrift, als auch in der Farbgebung geändert werden kann.
Eine entsprechende Anleitung liegt dem Download-Beispiel bei.
 
Option Explicit

Dim PixelX        As Integer
Dim PixelY        As Integer
Dim ReturnToStart As Long
Dim SpaceChars    As Long

Private Sub Form_Load()
  Dim Temp As String

  PixelX = Screen.TwipsPerPixelX
  PixelY = Screen.TwipsPerPixelY
  Temp$ = txtMessage.Text
  SpaceChars = ((Picture1.Width / imgChar(1).Width) / PixelX) + 2
  FixMessage Temp$
  InitImages Temp$
  ScrollImage.Enabled = True
End Sub

Private Sub FixMessage(Mess$)
  Mess$ = Space(SpaceChars) + Trim(Mess$) + Space(SpaceChars)
End Sub

Private Sub InitImages(Mess$)
  Dim t As Integer
  Dim LeftLoc  As Long

  LeftLoc = 0
  picMessage.Top = 0
  picMessage.Width = (imgChar(1).Width * PixelX) * Len(Mess$)
  ReturnToStart = _
        -((Len(Mess$) - SpaceChars) * imgChar(1).Width) * PixelX

  For t = 2 To Len(Mess$)
    Load imgChar(t)
  Next

  For t = 1 To Len(Mess$)
    imgChar(t).Left = LeftLoc
    imgChar(t).Top = 0
    imgChar(t).Picture = _
          picChar.GraphicCell(Asc(Mid(Mess$, t, 1)) - 32)
    imgChar(t).Visible = True
    LeftLoc = LeftLoc + 18
  Next
End Sub

Private Sub ScrollImage_Timer()
  picMessage.Left = picMessage.Left - 2 * PixelX
  If picMessage.Left < ReturnToStart Then
    picMessage.Left = 0
  End If
End Sub
 
Weitere Links zum Thema
Laufschrift
Laufschrift in der Titelleiste
Scroll-Text

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (8,4 kB) Downloads bisher: [ 2673 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 6. Juni 2011