在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）我也必须再次提供图标信息。