Office中国论坛/Access中国论坛

标题: [推荐]在access中自定义助手及气球的例子。 [打印本页]

作者: 静儿 时间: 2005-12-22 23:51
标题: [推荐]在access中自定义助手及气球的例子。
厌烦了单调的界面了吗？为什么不让office的助手出来增加一点色彩呢？去掉难看的对话框，使用超级气球！

hi-wzj在qq群中给我做的一个解答，现贴到论坛中。将代码模块中执行它就看到效果了。

hi-wzj 15:00:19
给静儿的一段关于助手的启用，关闭及显示气球的代码：
With Assistant
.on = True '启用助手
.FileName = "ROCKY.ACS"  '选择助手，对应的是Office安装目录下的acs文件。
.Sounds = True       '打开声音提示
.Visible = True       '显示助手
End With

With Assistant.NewBalloon    '创建新的气球
.Heading = "标题"       '设置标题文字
.Text = "请选择选项"    '设置内容
.Labels(1).Text = "选项1"  '设置选项
.Labels(2).Text = "选项2"
.Labels(3).Text = "选项3"
.Animation = 6          '设置助手的动作
X = .show                '选项值赋到变量中
End With
Assistant.on = False          '退出助手
MsgBox "您选择的是：选项" & X  '显示提示或根据选项值执行相应的命令。

hi-wzj 15:01:35
在access中增加助手及气球会增加程序的趣味性。
hi-wzj 15:02:23
在vba的帮助中用“助手”及“气球”能找到相关的代码。
hi-wzj 15:04:13
显示气球前要先显示出助手，这是要点。否则单贴那些代码可能看不出效果。

作者: fan0217 时间: 2005-12-23 00:35
这是个不错的想法。谢谢！

在Access帮助中有完整的帮助信息和例子。

作者: 青青 时间: 2006-1-6 03:45
好思路。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)