使用系统托盘图标和在VBA(访问)(Use system tray & icons in VBA (

2019-09-30 07:55发布

我发现,讲解了如何使用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)我必须再次提供图标信息,太。



文章来源: Use system tray & icons in VBA (Access)