电影结束画面的卷动效果
----所需物件: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
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载