用CallByName函数实现字符动画
CallByName函数用于执行一个对象的方法，或者设置或返回一个对象的属性。利用它可以轻松实现动画。这里举个字符动画的例子，让大家感受一下此函数的强大功能。 要尝试本例，请在窗
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,略作修改就可以用于你的程序中了，是不是太容易了？^-^->
要尝试本例，请在窗体上添加一个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中制作流水灯
精彩图集
精彩文章
