• Home
 · 
• Graphics
 · 
• Continuously scrolling, centered text in a PictureBox. Just put a picture box and a timer control o

Continuously scrolling, centered text in a PictureBox. Just put a picture box and a timer control o

Continuously scrolling, centered text in a PictureBox. Just put a picture box and a timer control on a form and paster the following code into

Rate Continuously scrolling, centered text in a PictureBox. Just put a picture box and a timer control o

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Const MyStr = "Hello, this is a test string"

Static TopText As Integer
Static TopLoaded As Boolean

Dim Speed As Integer
Dim NotShowing As Long

'speed is one pixel per tick
Speed = Screen.TwipsPerPixelY

If Not TopLoaded Then
    'only set this once
    TopText = Picture1.ScaleHeight
    TopLoaded = True
End If

'clear picture box text
Picture1.Cls

'center the text about to be displayed
Picture1.CurrentY = TopText
Picture1.CurrentX = (Picture1.ScaleWidth \ 2) - (Picture1.TextWidth(MyStr) \ 2)

'display text
Picture1.Print MyStr

'if text has moved past the top of the picture box
'then start scrolling text from the bottom
NotShowing = (TopText + Picture1.TextHeight(MyStr))
If NotShowing < 0 Then
    TopText = Picture1.ScaleHeight
Else
    'else continue moving text up
    TopText = TopText - Speed
End If
End Sub