投稿日 | : 2003/05/19(Mon) 23:55 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Re: アイコンの表示 |
以下で、特に見た目はきたなくないですけど。
Dim nIcon As NOTIFYICONDATA
Dim lngRtn As Long
Picture1.Picture = LoadPicture("C:\EXPLORER.ICO", vbLPSmall)
With nIcon
.cbSize = Len(nIcon)
.hwnd = hwnd
.uID = 0
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Picture1.Picture
.szTip = "Test" & vbCrLf & "TEST" & Chr(0)
End With
lngRtn = Shell_NotifyIcon(NIM_ADD, nIcon)
> Tip = StrConv(Msg & vbNullChar, vbFromUnicode)
> For i = 0 To UBound(Tip)
> .szTip(i) = Tip(i)
> Next i
VB4.0 をお使いですか? VB5.0 以降であれば、こんな面倒なことをしなくてもいいですよ。