Cómo usar VB6.0 para minimizar un formulario en el área de la bandeja

El área de la bandeja oculta el icono del programa minimizado en la barra de tareas en la esquina inferior derecha de la pantalla. Este método de minimización ahorra espacio que la minimización normal, por lo que es muy popular y muchos programas tienen esa función. En VB, las funciones API se pueden utilizar para implementar la función de bandeja, pero es complicado y difícil de operar. Aquí presentamos un método muy simple y fácil de usar: el método de control.

COMMON/TOOLS/VB/UNSUPPRT/SYSTRAY

Hablando de controles, puede que fruncas el ceño: ¿Dónde encontrarlos? ¡no te preocupes! ¡El control está en su disco de instalación de VB! Sin embargo, tienes que lidiar con ello: busca un directorio llamado Systray en la carpeta de herramientas, cópialo al disco duro, abre el proyecto en este directorio con VB, haz algunas mejoras si es necesario (como cambiar íconos, agregar funciones, etc.), luego se compila en un control ocx, al que puede nombrar según sus preferencias. Para facilitar su uso, es mejor compilarlo en el directorio Windows\System. Bien, ahora podemos usar este control en el programa para implementar fácilmente la función de bandeja. No necesito decirte cómo agregar este control, ¿verdad?

La propiedad más importante de este control es la propiedad InTray: configurarla en True hace que el ícono del programa aparezca en el lado derecho de la barra de tareas, mientras que configurarla en False elimina el ícono de la barra de tareas. Además, existen propiedades de ícono TrayIcon (el estilo del ícono cuando el programa aparece en la tarea), propiedades de TrayTip (el carácter de información sobre herramientas que aparece cuando el mouse se mueve sobre el ícono), etc., todas las cuales son propiedades familiares que podemos ver de un vistazo.

Los eventos importantes de este control son varios eventos de mouse de uso común: presionar, soltar, mover y hacer doble clic. El propósito de programación de estos eventos es controlar los programas en la barra de tareas. Descubrirás que esto también es muy sencillo, por lo que no entraré en detalles.

Aquí tienes un ejemplo. Ejecute este ejemplo, haga clic en el botón minimizar, la interfaz del programa desaparece y el ícono del programa (exactamente el ícono del control CsysTray) aparece en el lado derecho de la barra de tareas, haga clic en el ícono en el lado derecho de la barra de tareas y el programa; vuelve a su estado original. Visible = False 'Hacer invisible la interfaz del programa

End If

End Sub

'Restaurar el programa a la pantalla

Private Sub CsysTray1_MouseDown( Botón como número entero, ID como largo)

Me.WindowState = 0 'Devuelve el programa al estado normal

Me.Visible = True 'Elimina el icono de la barra de tareas

cSysTray1.InTray = False 'Hacer visible la interfaz del programa

Finalizar la subrutina