CallByName函数小例一则
来源:互联网 发布:数据散修txt全集下载 编辑:程序博客网 时间:2024/06/05 06:11
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
要尝试本例,请在窗体上添加一个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
- CallByName函数小例一则
- CallByName 函数
- VB6开发中的重量级函数CallByName
- Java 读取文件小例一则
- c++前置声明小例一则
- Shell 小技巧一则
- 小笑话一则
- 小故事一则
- 渗透小技巧一则
- 一则质量小故事
- sscanf()函数实例一则
- vb6 functionPtr 函数指针 CallbyName CallbyAddress 虚函数 Matthew Curland的VB函数指针调用
- MS Word小技巧一则
- 小故事一则(2)
- 省时省力 Shell小技巧一则
- C++日记_17.5.11 静态成员函数的小应用一则
- VB 函数 CallByName 的一些用法 (函数动态调用,回调函数)
- linux下waipid()函数的用法用例一则
- 硬盘安装freebsd6.2的笔记 (转载)
- 业务架构平台的技术实现环境
- gdb使用实例
- 61条面向对象设计的经验原则
- 置疑纯ORM方案
- CallByName函数小例一则
- Shell的输入和输出(echo,read,cat,管道,tee,重定向等)
- java 面向对象程序设计浅谈三
- 漫谈创业和管理-程序员5大思维障碍
- asp.net常用函数
- 公交转车路线sql写法
- ASCII编码表
- JAVA30个基本知识
- 设计数据层组件并在层间传递数据