VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/05/19(Mon) 23:55
投稿者： Starfish
Ｅメール：
ＵＲＬ：
タイトル： 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 以降であれば、こんな面倒なことをしなくてもいいですよ。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -