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

用CallByName函数实现字符动画

2019-11-18 17:37:51

字体：大中小

来源：转载

供稿：网友

CallByName函数用于执行一个对象的方法，或者设置或返回一个对象的属性。利用它可以轻松实现动画。这里举个字符动画的例子，让大家感受一下此函数的强大功能。
要尝试本例，请在窗体上添加一个Label和一个Timer控件。

OptionExplicit
DimssAsInteger,xAsInteger'声明变量
PRivateSubForm_Load()
ss=0'时间初值
x=0'标签移动初值
Label1.Left=x'标签Left属性初值(为了一致性)
Label1.Caption="哈哈哈，Moveit!"
Timer1.Interval=100
Timer1.Enabled=True
EndSub

PrivateSubTimer1_Timer()
ss=ss 1
x=x 30'标签移动值
Ifss>=120Thenss=0:x=0'循环
CallByNameLabel1,"Move",VbMethod,x'用CallByName令标签移动
EndSub

OK,略作修改就可以用于你的程序中了，是不是太容易了？^-^->

上一篇：如何做旋转的光盘动画

下一篇：VisualBasic中制作流水灯

学习交流

索泰发布一款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

疑难解答

图片精选

网友关注