|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:48 |
|
|
----所需物件：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 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:48 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]