[推荐]在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

这是个不错的想法。谢谢！

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

青青

好思路。