在 VBA (Access) 中使用系统托盘和图标答案

【问题标题】：Use system tray & icons in VBA (Access)在 VBA (Access) 中使用系统托盘和图标
【发布时间】：2011-01-25 00:37:22
【问题描述】：

我找到了一些教程，这些教程解释了如何使用 Windows API 在系统托盘中获取自定义图标。

这些都是针对 Visual Basic 的，它们似乎不能很好地扩展到 VBA。

我正在学习这个简短的教程： http://atchoo.org/vb/systray.php

基本上，您必须设置 hIcon 值（一个“长”变量），但它不起作用。我尝试使用 LoadPicture() 函数，它没有给我任何错误，但也无法添加新图标。

我无法提供 Me.Icon，也无法在 Form_Load 上设置它。

有人有这方面的经验吗？

【问题讨论】：

【解决方案1】：

使用 loadpicture 是正确的方法，但不是直接使用。我必须先定义一个新变量，然后加载它。

像这样：

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

然后，在此过程中，我可以毫无问题地设置 hIcon：

.hIcon = myPicture

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

【讨论】：