Library code snippets
Text Scroller With Pause
By ChAdWiCk, published on 14 Jul 2001
Text Scroller With Pause
To use the code you will need to create a new form. Make a picture box and name is "picHolder". Set the height of the pic box to 1335. Inside the pic box create a label named "lblMsg". I set the height to 855 and top to 240. Give the LbLMsg a caption, this is the text that will scroll. Next insert a timer named "Timer1" and another timer named "tmrScroll". Then enter the code. That should do it =)
Private Sub Form_Load()
'Pause Feature by _ChAdWiCk_
lblMsg.Top = picHolder.Height
tmrScroll.Interval = 1
tmrScroll.Enabled = True
End Sub
Private Sub tmrScroll_Timer()
If lblMsg.Top > -lblMsg.Height Then
lblMsg.Top = lblMsg.Top - 10
If lblMsg.Top = 255 Then
pause
End If
Else
lblMsg.Top = picHolder.Height
End If
End Sub
Sub pause()
tmrScroll.Enabled = False
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
tmrScroll.Enabled = True
Timer1.Enabled = False
End Sub
Related articles
Related discussion
-
VB6, SQL 2005 & DMO
by elajaunie3 (1 replies)
-
sending sms from pc
by sriraj20074 (0 replies)
-
Automating Excel from VB6.0
by epurdy (0 replies)
-
VB6 system conversion using VBA to Word 2007
by b.macgregor@vodamail.co.za (0 replies)
-
video not working with visual basic
by Jupiter 2 (9 replies)
Related podcasts
-
Christian Beauclair
14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...
This thread is for discussions of Text Scroller With Pause.