Использование панели задач и значков в VBA (Access)

Question

Я нашел несколько руководств, в которых объясняется, как использовать API Windows для получения собственного значка на панели задач.

Все они предназначены для 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

Когда я меняю значок в трее (например, добавляя всплывающую подсказку), мне также приходится снова предоставлять информацию о значке.