使用系统托盘图标和在VBA（访问）

Question

我发现，讲解了如何使用Windows API来获取系统托盘中的自定义图标一些教程。

这些都是为Visual Basic，而且他们似乎并不被扩展到VBA很好。

我以下这个简短教程： http://atchoo.org/vb/systray.php

基本上，你必须设置HICON值（“长”变量），但它不工作。 我试图使用的LoadPicture（）函数，它不给我任何错误，也没有增加新的图标。

我不能提供Me.Icon，也不能我设置上的Form_Load。

有没有人有这样的经验吗？

Answer 1

使用的LoadPicture是正确的方法，但不直接。 我不得不首先定义一个新的变量，并加载。

像这样：

Dim myPicture As IPictureDisp
strPath = "F:\Databank\Icons\stone.ico"
Set myPicture = LoadPicture(strPath)

然后，沿途某处，我可以设置惠康没有问题：

.hIcon = myPicture

当我改变托盘图标（比如说，增加一个balloontip）我不得不再次提供图标信息，也