Область уведомлений - VB

Узнай цену своей работы

Формулировка задачи:

Возможно ли в VB 6.0 сворачивание приложения в область уведомлений? Есть ли для этого специальный класс в visual basic?

Решение задачи: «Область уведомлений»

textual
Листинг программы
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer
Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4
 
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long
Dim nidTemp As NOTIFYICONDATA
nidTemp.cbSize = Len(nidTemp)
nidTemp.hWnd = hWnd
nidTemp.uID = 0&
nidTemp.uFlags = NIF_ICON Or NIF_TIP
nidTemp.uCallbackMessage = 0&
nidTemp.hIcon = Icon
nidTemp.szTip = tip & Chr$(0)
SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp)
End Function
 
'Использование:
'' Добавить иконку формы в traybar
'SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test"
'' Изменить иконку и tooltip
'SetTrayIcon NIM_MODIFY, Me.hWnd, Me.Icon, "It works!"
'' Удалить иконку из traybar'a
'SetTrayIcon NIM_DELETE, Me.hWnd, 0&, ""

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы