首页 > 学院 > 开发设计 > 正文

电影结束画面的卷动效果

2019-11-18 17:36:48

字体：大中小

来源：转载

供稿：网友

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

上一篇：利用VisualBasic设计多媒体应用程序

下一篇：VB环境下压缩数据流播放技术

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

荣耀总裁赵明乌镇演讲：荣耀首款5G手机V30下月发布

2019-10-23 09:17:05

搜狐张朝阳：回归媒体是搜狐重新崛起的关键

2019-10-21 09:20:02

华为轮值董事长郭平：虚拟技术创造现实价值

2019-10-21 09:00:12

滴滴英文服务上线两周年用户已超200万

2019-09-26 08:57:12

华为推出全球至快AI训练集群Atlas900

2019-09-25 08:46:36

马斯克：特斯拉正组建中国技术团队

2019-09-25 08:15:43

疑难解答

图片精选

网友关注