文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

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中制作流水灯

下一篇:用VisualBasic的Move方法实现动画效果