VBA (액세스)의 시스템 트레이 및 아이콘 사용

Question

Windows 트레이를 사용하여 Windows 트레이에서 사용자 정의 아이콘을 얻는 방법을 설명하는 자습서가 있습니다.

이들은 모두 Visual Basic 용이며 VBA에 맞게 확장되지 않는 것 같습니다.

나는이 짧은 튜토리얼을 다음 해요 : http://atchoo.org/vb/systray.php

기본적으로, 당신은 HICON 값 (A '긴'변수)를 설정해야하지만이 작동하지 않습니다. 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 

나는 TrayIcon에를 변경하는 경우 (같은 말하는 balloontip 추가) 다시 아이콘 정보를 제공해야합니다.