电影结束画面的卷动效果

----所需物件：PictureBox(2),Label(4),Timer(1),Image(1)。
----程式码：

Private Sub Form_Load()
Label1.Alignment = 2
Label2.Alignment = 2

Label1.Caption = "电影结束画面的卷动效果！"
Label2.Caption = "电影结束画面的卷动效果！"
Label3.Caption = "东汉工作室"
Label4.Caption = "东汉工作室"
Label1.FontName = "研泽古印体"
Label2.FontName = "研泽古印体"
Label3.FontName = "研泽古印体"
Label4.FontName = "研泽古印体"
Label1.ForeColor = QBColor(13)
Label3.ForeColor = QBColor(9)

End Sub


Private Sub Picture2_Click()
End
End Sub


Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 1
If Picture2.Top <= -150 Then Picture2.Top = 93
End Sub

上一篇： 利用Visual Basic设计多媒体应用程序
下一篇： 在VB5中如何使机箱内的小喇叭发出不同的声音？

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有