电影结束画面的卷动效果
2006-02-27 11:54:01 来源:WEB开发网核心提示:所需物件:PictureBox(2),Label(4),Timer(1),Image(1)。程式码:PRivateSubForm_Load()Label1.Alignment=2Label2.Alignment=2Label1.Caption="电影结束画面的卷动效果!"Label2.Caption
----所需物件:PictureBox(2),Label(4),Timer(1),Image(1)。
----程式码:
PRivateSubForm_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)
EndSub
PrivateSubPicture2_Click()
End
EndSub
PrivateSubTimer1_Timer()
Picture2.Top=Picture2.Top-1
IfPicture2.Top<=-150ThenPicture2.Top=93
EndSub->
----程式码:
PRivateSubForm_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)
EndSub
PrivateSubPicture2_Click()
End
EndSub
PrivateSubTimer1_Timer()
Picture2.Top=Picture2.Top-1
IfPicture2.Top<=-150ThenPicture2.Top=93
EndSub->
[]
更多精彩
赞助商链接