Access爱好者--
所属分类: 精选教程 作者: 李寻欢 更新日期:2003-10-17 19:31:23 阅读次数:344

初识VBA:第七课 使鼠标指向按钮时变成手形


你如果下载了前面的计算器程序,使用的时候一定会发现当鼠标指向按钮时就会变成手形,知道为什么会有这种效果吗?其实这是借用了超级链接的特性,上网时大家都知道,如果鼠标指向一个超级链接,一般都会变成手形。按钮中也有一个"超级链接地址"的属性,如果我们在这个属性里填入任意一个字符,这个按钮也就成了超级链接,当然也就拥有超级链接的特征了。

上一课我们曾经提过For Each.…Next语句,针对一个数组或集合中的每个元素,重复执行一组语句。集合就是包含一组相关对象的对象。一个人是一个对象,一群人就是一个集合了(也称为集团或团伙:)。一个按钮是一个对象,许多个按钮在一起就是一个集合(这就不能称为团伙了)。二个按钮是一个集合,三个也是一个集合,我们如何确定一个集合呢?按钮都放在窗体上,所以这个集合肯定也是在窗体上,每个窗体都有一个Controls 集合,这是控件集合,按钮是控件中的一种,所以按钮是这个集合中的一员。

For Each.…Next
用途:针对一个数组或集合中的每个元素,重复执行一组语句。
语法:
For Each 集合成员 IN 集合
语句1
语句2
语句N
Next 集合成员
基本概念都知道了,下面开始编写代码,要在程序一打开就使按钮变成超级链接,就得在窗体的加载事件中写代码:

Private Sub Form_Load()
Dim ctlButt As Control 定义一个变量ctlButt,它的类型为控件
DoCmd.Restore 恢复窗体大小,这只是控制窗体的外形,跟手形效果无关
For Each ctlButt In Me.Controls 开始循环
If TypeOf ctlButt Is CommandButton Then 如果变量ctlButt的类型是命令按钮
ctlButt.HyperlinkAddress = " " 变量ctlButt的超级链接地址等于一个空格,你可以填入别的内容
End If 结束if语句
Next ctlButt 下一个控件
End Sub 结束过程

注1:TypeOf表示类型,CommandButton表示命令按钮
注2:ctlButt.HyperlinkAddress = " " 这里的双引号中有一个空格,如果没空格就是""



--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链