Tipp 0266 Laufschrift
Autor/Einsender:
Datum:
  Manuel Jerger
21.08.2002
Entwicklungsumgebung:   VB 5
Dieser Tipp zeigt, wie eine Laufschrift mit einem Fading-Effekt realisiert werden kann. Da die Ausgabe hier mit der VB-Funktion Print erfolgt, eignet sich zur Ausgabe sowohl die PictureBox als auch die Form selbst (wie im Tipp demonstriert).
 
Option Explicit

Dim Zeichenpos As Integer
Dim sText As String

Dim r1 As Integer, g1 As Integer, b1 As Integer
Dim r2 As Integer, g2 As Integer, b2 As Integer
Dim r3 As Integer, g3 As Integer, b3 As Integer

Private Sub Form_load()
  Zeichenpos = 1
  sText = "Dies ist ein Test-Text. " & vbCrLf & _
          "Er sollte jetzt langsam erscheinen."

  r1 = 255: g1 = 255: b1 = 255
  r2 = 0: g2 = 0: b2 = 0
  r3 = (r1 + r2) / 2: g3 = (g1 + g2) / 2: b3 = (b1 + b2) / 2
  
  Me.BackColor = RGB(r1, g1, b1)
  Me.ForeColor = RGB(r2, g2, b2)
End Sub

Private Sub timAnimation_Timer()
  If Zeichenpos < Len(sText) Then
    Zeichenpos = Zeichenpos + 1
    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r1, g1, b1)
    Print Left(sText, Zeichenpos + 2)

    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r3, g3, b3)
    Print Left(sText, Zeichenpos + 1)

    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r2, g2, b2)
    Print Left(sText, Zeichenpos)
  End If
End Sub
 
Weitere Links zum Thema
Laufschrift in der Titelleiste
Scroll-Text
Pixel-Board (Laufschrift)

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  (2,5 kB) Downloads bisher: [ 2498 ]

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: Donnerstag, 8. September 2011