![]() |
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
|
|
|
|
|
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: [ 2681 ]
|
|
|