|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：土人 日期：2005-8-4 11:33:16 |
|
|
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,略作修改就可以用于你的程序中了，是不是太容易了？^-^ |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 土人 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:16 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]