Hi people! I wanna thanks for your help!
anyway,i would like to know how i make a textbox display a cast or credit like the end of a movie from the buttom to up
thanks!!
Printable View
Hi people! I wanna thanks for your help!
anyway,i would like to know how i make a textbox display a cast or credit like the end of a movie from the buttom to up
thanks!!
Go to www.planetsourcecode.com and look up "movie credits" it will bring up MANY execellent examples.
Gl,
D!m
Here is an example using a Label which does the same thing. Make a Form with a Label, PictureBox and a Timer and put the following code into the Form.
Code:Private Sub Form_Load()
Picture1.ScaleMode = vbPixels
Timer1.Interval = 100
'Move the Label inside the PictureBox
Set Label1.Container = Picture1
'Center the Label in the PictureBox
Label1.Move (Picture1.ScaleWidth / 2) - Label1.Width, Picture1.ScaleHeight
'Write some movie credits in the Label
Label1.Caption = "Staring..." & vbNewLine _
& "Tim Joesephson" & vbNewLine _
& "Kirk Miller" & vbNewLine _
& "Angel McFail" & vbNewLine _
& "Allen Tompson" & vbNewLine _
& "James Hart" & vbNewLine _
& "Ken Johnson" & vbNewLine _
& "Paul Krok" & vbNewLine _
& "Kimmy Wong" & vbNewLine _
& "Chris Parker" & vbNewLine _
& "Joe Carter" & vbNewLine _
& "Produced by Ultimate Motion Pictures"
End Sub
Private Sub Timer1_Timer()
'Move Label1 up by 1 pixel each interval
Label1.Top = Label1.Top - 1
End Sub