Cómo agregar un ícono de programa a la bandeja
'Determinar si el formulario está minimizado, si el valor devuelto no es 0 entonces el formulario está minimizado
Función de declaración pública IsIconic Lib "user32" (ByVal Hwnd As Long) As Long
'Una función para agregar iconos a la barra de tareas
Función de declaración pública Shell_NotifyIcon Lib "shell32.dll" Alias" Shell_NotifyIconA " (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
el número de constantes en el parámetro dwMessage que utilizará la función SHELL_NOTIFYICON
Public Const NIM_ADD = amp; H0
Const pública NIM_DELETE = H2
Const pública NIM_MODIFY = H1
Const pública NIF_TIP = H4
Const pública NIF_MESSAGE = amp; H1 <
Const pública NIF_ICON = amp; H2
Const pública WM_RBUTTONDOWN = amp H204
Constante pública WM_LBUTTONDOWN = amp; >Tipo público NOTIFYICONDATA
cbSize As Long
Hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIconAs Long
szTip As String * 64
End Type
'Agrega el icono al área del sistema de la sección de tareas
Función pública Add_Icon(Hwnd As Long, sTip As String, hIcon As Long, iId As Long) As Long
Dim IconV As NOTIFYICONDATA
Con IconV
.Hwnd = Hwnd
.szTip = sTip Chr$(0)
.hIcon = hIcon
.uID = iId
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE o NIF_ICON o NIF_TIP
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE o NIF_ICON o NIF_TIP.uID = iId
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE o NIF_TIP o NIF_ICON
.uCallbackMessage = WM_RBUTTONDOWN
.uFlags = NIF_MESSAGE o NIF_TIP o NIF_ICON