картинка в трее

vah

Дата: 12.11.2009 14:25:51

Скажите пожалуйста, как в такой трактовке поменять картинку в трэе?

        With nid
            .cbSize = Len(nid)
            .hWnd = Me.hWnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE
            .hIcon = Img.ListImages("Icon").Picture
            '.hIcon = Img.ListImages(2).Picture
            .szTip = "База Access" & vbNullChar
        End With

Заранее благодарен.

ILL HEAD

Дата: 12.11.2009 14:56:40

при смене можно ограничится только сменой .hIcon

а где это ?

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

должно быть типа так

Const NIM_ADD = &H0
Const NIM_MODIFY = &H1

- при первом добавлении в трей :

...
   Shell_NotifyIcon NIM_ADD, nid
End With

- при смене :

...
   Shell_NotifyIcon NIM_MODIFY, nid
End With

ILL HEAD

Дата: 12.11.2009 15:35:24

вот пример соорудил

vah

Дата: 12.11.2009 16:07:44

ILL HEAD

вот пример соорудил

Вот уж спасибо так спасибо!

vah

Дата: 12.11.2009 17:22:45

        With nid
            .cbSize = Len(nid)
            .hWnd = Me.hWnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE
            .hIcon = Img.ListImages("Icon").Picture
            '.hIcon = Img.ListImages(2).Picture
            .szTip = "База Access" & vbNullChar
        End With

А как можно заполнить этот класс

ctlImages.ListImages

своими картинками?

ILL HEAD

Дата: 12.11.2009 17:33:12

можно руками - два раза кликнуть по контролу и получиш окно свойств
там есть инсерт и ремув

можно програмно - ListImages.Add
смотри методы ListImages-a по кнопке F2

vah

Дата: 12.11.2009 22:39:02

ILL HEAD

Еще раз спасибо!