Cómo darme cuenta de que el programa se puede minimizar como QQ en VB

1. Cree un nuevo proyecto VB6, establezca la propiedad ShowInTaskBar de Form1 en False

2. Menú: Proyecto - Agregar módulo y presione "Abrir", agregando así un nuevo módulo, llamado Módulo1, y guárdelo como Module1.Bas

3.bas

3. Escriba el siguiente código en Module1:

Option Explicit

Public Const MAX_TOOLTIP As Integer = 64

Const Pública NIF_ICON = & H2

Const Pública NIF_MESSAGE = &H1

Const Pública NIF_TIP = &H4

Const Pública NIM_ADD = &H0

Const pública NIM_DELETE = & H2

Const pública WM_MOUSEMOVE = &H200

Const pública WM_LBUTTONDOWN = &H201

Pública Const WM_LBUTTONUP = &H202

Const pública WM_LBUTTONDBLCLK = &H203

Const pública WM_RBUTTONDOWN = &H204

Const pública WM_RBUTTONUP = &H205

Const pública WM_RBUTTONDBLCLK = & ;H206

Const pública SW_RESTORE = 9

Const pública SW_HIDE = 0

nfIconData pública como NOTIFYICONDATA

Tipo público NOTIFYICONDATA

cbSize Mientras

hWnd Mientras

uID Como

uFlags Mientras

uCallbackMessage Mientras

hIcon tan largo

szTip como cadena * MAX_TOOLTIP

Tipo de fin

Función de declaración pública ShowWindow Lib "usuario32" (ByVal hWnd As Long, ByVal nCmdShow Mientras) Mientras

Función de declaración pública Shell_NotifyIcon Lib " shell32.dll" Alias ​​​​"Shell_ NotifyIconA" (ByVal dwMessage Mientras, lpData Como NOTIFYICONDATA) Mientras

4. En Form1 Escriba el siguiente código en el evento de carga:

Private Sub Form_Load()

'Coloque el siguiente programa en la bandeja del sistema =========== ==== ===================== Comenzar la bandeja del sistema

con nfIconDat

a

.hWnd = Me.hWnd

.uID = Me.Icon

.uFlags = NIF_ICON O NIF_MESSAGE O NIF_TIP

. uCallbackMessage = WM_MOUSEMOVE

.hIcon = Me.Icon.Handle

'Define el mensaje que se muestra cuando el mouse se mueve a la bandeja. Consejo

.szTip = App.Title + "(Version " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar

.cbSize = Len(nfIconData)

Finalizar con

Llamar a Shell_NotifyIcon(NIM_ADD, nfIconData)

'========== ==================================================== =Fin de la bandeja del sistema

Me.Hide

End Sub

5. Escribe un mensaje en el evento QueryUnload de Form1 y escribe el siguiente código:

Sub privado Form_QueryUnload(Cancelar como entero, UnloadMode como entero)

Llamar a Shell_NotifyIcon(NIM_DELETE, nfIconData)

Fin Sub

6. En Form1 Escriba el siguiente código en el evento MouseMove:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lMsg As Single

lMsg = , "Live.MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

7.SetFocus

'' Caso WM_RBUTTONUP

'' PopupMenu MenuTray 'Si hace clic derecho en el icono de la bandeja del sistema, aparecerá el menú MenuTray

'' Case WM_MOUSEMOVE

'' Case WM _LBUTTONDOWN

'' Caso WM_LBUTTONDBLCLK

'' Caso WM_RBUTTONDOWN

'' Caso WM_RBUTTONDBLCLK

'' Caso más

End Select

End Sub

7. Ahora guarde el programa y ejecútelo para ver si se agrega un ícono de proyecto a la bandeja del sistema. Haga clic en este icono y Form1 aparecerá automáticamente.

7.