首页 > > 程序设计 > VB >

用CallByName函数实现字符动画

2008-02-23 06:52:51来源：互联网阅读 ()

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

Option Explicit
Dim ss As Integer, x As Integer '声明变量
Private Sub Form_Load()
ss = 0 '时间初值
x = 0 '标签移动初值
Label1.Left = x '标签Left属性初值(为了一致性)
Label1.Caption="哈哈哈，Move it!"
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ss = ss 1
x = x 30 '标签移动值
If ss >= 120 Then ss = 0: x = 0 '循环
CallByName Label1, "Move", VBMethod, x '用CallByName令标签移动
End Sub

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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有