电影结束画面的卷动效果
出处：网络

所需物件：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

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明