📄 m26.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> <font color="#FFFFFF" class="unnamed1">用CallByName函数实现字符动画</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000">来源: www.vbeden.com<br>
<br>
CallByName函数用于执行一个对象的方法，或者设置或返回一个对象的属性。利用它可以轻松实现动画。这里举个字符动画的例子，让大家感受一下此函数的强大功能。<br>
要尝试本例，请在窗体上添加一个Label和一个Timer控件。<br>
<br>
Option Explicit<br>
Dim ss As Integer, x As Integer '声明变量<br>
Private Sub Form_Load()<br>
ss = 0 '时间初值<br>
x = 0 '标签移动初值<br>
Label1.Left = x '标签Left属性初值(为了一致性)<br>
Label1.Caption="哈哈哈，Move it!"<br>
Timer1.Interval = 100<br>
Timer1.Enabled = True<br>
End Sub<br>
<br>
Private Sub Timer1_Timer()<br>
ss = ss + 1<br>
x = x + 30 '标签移动值<br>
If ss >= 120 Then ss = 0: x = 0 '循环<br>
CallByName Label1, "Move", VbMethod, x '用CallByName令标签移动<br>
End Sub<br>
<br>
OK,略作修改就可以用于你的程序中了，是不是太容易了？^-^ <br>
</font></span> <br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -