Puntuaciones altas en programación VB

A continuación se muestra el comunicado.

Opción explícita

Const MAX_TOOLTIP como entero = 64

Const NIF icon = & deuterio

Const NIF_message = & ampH1

Const NIF_HINT = & ampH4

Const NIM_ADD = & amphipótesis nula

Const NIM_DELETE = & ampDELETE

Const WM _ MOUSEMOVE = & ampH200

Const WM_LBUTTONDOWN = & ampH201

Const WM_LBUTTONUP = & ampH202

Const WM_LBUTTONDBLCLK = & ampH203

Const WM_ RBUTTONDOWN = & ampH204

Const WM _ RBUTTONUP = & ampH205

Const WM _ RBUTTONDBLCLK = & ampH206

Const SW_RESTORE = 9

Const SW_HIDE = 0

Tipo privado NOTIFYICONDATA

cbSize tiene la misma longitud

hwnd tiene la misma longitud

uID tiene la misma longitud

uFlags tiene la misma longitud

uCallbackMessage tiene la misma longitud

hIcon tiene la misma longitud

szTip As String * MAX_TOOLTIP p>

Tipo final

Función de declaración privada que muestra la ventana Lib "usuario 32" (ByVal hwnd es Long, ByVal nCmdShow es Long) es Long

Función de declaración privada Shell _ NotifyIcon Lib "Shell 32.dll" alias "Shell_NotifyIconA" (mensaje ByVal dw tan largo, lpData como NOTIFYICONDATA) tan largo

NfIconData privado como NOTIFYICONDATA

Indicador público en forma de número entero

Sub MDIForm privado _ MouseMove(El botón es un número entero, Shift es un número entero, x es único, y es único)

Este es el código para generar el indicador y se puede colocar en el formato requerido. bloquear .

nficondata .hwnd = mdiform 1 .

nfIconData.uID = MDIForm1. icon

nfIconData.uFlags = Icono NIF o mensaje NIF o aviso NIF

nficondata .ucallbackmessage = WM_MOUSEMOVE

nficondata hicon = MD iform 1. icono. handle

nficondata . SZ tip = " time tip " & /p>

Esto es una señal de cancelación.

Llamar a Shell_NotifyIcon(NIM_DELETE, nfIconData)

Este es el menú donde aparece el símbolo de clic.

privado Sub MDIForm _ MouseMove(El botón es un número entero, Shift es un número entero, x es único, y es único)

Si MDIForm1. visible = false

Establece lMsg en único

lMsg = x /screen. TwipsPerPixelX

Iflmsg = WM_rbuttonup o lmsg = WM_lbuttonup luego mdiform 1. Menú emergente mnumain 'Este es el nombre del menú.

Terminará si...

Conector final

La ventana aquí es MDIForm1 y se puede cambiar.

No olvide verificar el host de secuencias de comandos de Windows y el control de secuencias de comandos de Windows en el widget\referencia.

Espero que te ayude.