I am trying to scroll text (totalling about 3,000 words in length) across the screen. So far I have failed and have achieved absolutely nothing!
Is it best using a picturebox or should i use a label.
It depends on which effect you are searching for, if it's the smooth effect, I would go for the picturebox. If you wan't the effect where the text shifts one character at the time, the label will properly do.
I could take a look on it, but you would need to send some code, so I can see what you are doing.
like the electronic notice boards you see when text continously scrolls from right to left. Or another example is on Bloomberg T.V where the shares prices again scroll from right to left.
'Your string must fit the caption of the label so it will only
'allow you a certain size and not 3000...least I couldn't get it to run
'An exhibit of scrolling text
'need 1 label, 1 timer, 1 command button for this example
'
Option Explicit
Private Sub Command1_Click()
'will give user a Yes or No prompt in which they wish to exit
Dim x As Integer
x = MsgBox("Are you sure you want to exit?", vbYesNo, "Exit")
If x = 6 Then
End
End If
End Sub
Private Sub Form_Load()
Dim msg As String
msg = "Here is a simple example of scrolling a line of text across the screen "
Label1.Visible = True
Label1.Enabled = True
'position of labels
Form1.Enabled = True
Label1.Caption = msg
Label1.Left = -4999
Label1.Top = 0
Label1.Height = 255
Form1.Width = Screen.Width - 200
Label1.AutoSize = True
Form1.Height = 2600
Command1.Top = 1320
Command1.Left = 0
Command1.Height = 375
Command1.Width = 6705
Command1.Caption = "Exit Example"
Command1.Enabled = True
Command1.Visible = True
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If Label1.Left < -5000 Then
Label1.Left = Screen.Width - 200
Else
Label1.Left = Val(Label1.Left) - 40
End If
End Sub
"A myth is not the succession of individual images,
but an integerated meaningful entity,
reflecting a distinct aspect of the real world."
___ Adolf Jensen
Please help!
Reply With Quote
