| 本月文章推荐 |
用CallByName函数实现字符动画发表日期：2006-2-27
|
|
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中制作流水灯
人气:3267 下一篇：如何做旋转的光盘动画 人气:3802 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
