Código fuente de la bandeja Vb
Agregue una declaración de clic izquierdo al código.
Constante privada WM_LBUTTONDBLCLK = ampH203
Evento de mouse agregado.
Subformulario privado _ MouseMove(El botón es un número entero, Shift es un número entero, X es único, Y es único)
Hacer el mensaje más largo
msg = X / 15
Si msg = WM_LBUTTONDBLCLK, entonces
i. EstadoVentana = 2
i. Mostrar
Terminará si...
Conector final
Puedes cambiar "WM_lbuttonblclk" en la oración If msg = WM_LBUTTONDBLCLK para hacer clic en abrir, o hacer clic izquierdo al abrir para cambiarlo a WM_LBUTTONUP y haga clic derecho sobre él para WM_RBUTTONUP.
Copia mi código a continuación y haz doble clic en el icono en la barra de estado para maximizarlo.
Opción explícita
Función de declaración privada GetMenu Lib " usuario 32 "(ByVal hWnd As Long) tiene la misma longitud
Función de declaración privada get submenu Lib " usuario 32 "(ByVal hMenu es Long, ByVal nPos es Long)
Función de declaración privada GetMenuItemID Lib " usuario 32 "(ByVal hMenu es Long, ByVal nPos es Long)
Función de declaración privada SetMenuItemBitmaps Lib " usuario 32 "(ByVal hMenu es largo, ByVal nPosition es largo, ByVal wFlags es largo, ByVal hBitmapUnchecked es largo, ByVal hBitmapChecked es largo)
Función de declaración privada Shell_NotifyIcon Lib "Shell 32. dll " Alias "Shell_NotifyIconA" (el mensaje ByVal dw es largo, lpData es NOTIFYICONDATA) es largo
const privado MAX_TOOLTIP As Integer = 64
Icono NIF const privado = amp Deuterio
Constante privada NIF_Message = ampH1
Constante privada NIF_TIP = ampH4
Constante privada NIF_ADD = ampNullHypothesis
Constante privada NIM_DELETE = ampH200
Constante privada WM_MOUSEMOVE = ampH200
Constante privada WM_LBUTTONUP = ampH202
Constante privada WM_LBUTTONDBLCLK = ampH203
Constante privada WM_RBUTTONUP = ampH205
Tipo privado NOTIFYICONDATA
cbSize tiene la misma longitud
hWnd tiene la misma longitud
uId tiene la misma longitud
uFlags es la misma longitud
uCallBackMessage tiene la misma longitud
hIcon tiene la misma longitud
szTip As String * MAX_TOOLTIP
Tipo de fin
Const privado MF_bitmap = ampH4 amp;
nfIconData privado como NOTIFYICONDATA
Subsystem_tray() privado
Atenuar Mnu_Hwnd siempre
Atenuar Mnu_Id mientras
Atenuar Mnu_Hwnd mientras
nfIconData.hWnd = Me.hWnd
nfIconData.uId = Yo. icon
nfIconData.uFlags = Icono NIF o mensaje NIF o aviso NIF
nficondata .ucallbackmessage = WM_MOUSEMOVE
nfIconData.hIcon = Yo. icono.
Mango
'''''''''''''''''''''''''''''' '''''''' '''''''
'''''''''''''''''''' '''''''''' '''''''''''''
'''''''''''' '''''''''''''' '''''''''''''''''''
NfIconData.szTip = "Tráfico de pincel" vbNullChar
'''''; '''''''''''''''''''''' ''''''''''''''''''''
''''''''''''''''' '''''''''''''''''''''''''' ''
''''' '''''''''''''''''''''''''''''''' ''''' ''
nfIconData .cbsize = Len(nfIconData)
Llamar a Shell_NotifyIcon(NIM_ADD, nfIconData)
Finalizar conector
Ventana secundaria privada Body_Unload(cancelar a número entero)
Llamar a Shell_NotifyIcon(NIM_DELETE, nfIconData)
Conector final
Subform_Load privado()
Bandeja del sistema
Conmigo
. Visible = Falso
Termina con
Conector final
Sub privado muen1_Click()
Bandeja del sistema
Con yo
. Visible = False
Terminar con...
Conector final
Subformulario privado _ MouseMove(El botón es un número entero, Shift es un número entero, X es único , Y es Simple )
Alargar el mensaje
msg = X / 15
Si msg = WM_LBUTTONDBLCLK, entonces
i. EstadoVentana = 2
i. Mostrar
Finalizar si...
Conector final