winapi - 在 VBA (Access) 中使用系统托盘和图标

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 ：

.hIcon = myPicture

当我更改托盘图标（例如，添加一个气球提示）时，我也必须再次提供图标信息。