¿Cómo ocultar el programa en la bandeja después de hacer clic en el botón en VB6 y cómo cambiar la etiqueta de la bandeja?

Necesitas encontrar el directorio común \ tools \ VB \ unsupprt \ Systray del disco de instalación de VB (no el directorio después de la instalación) y coloque Copie el directorio de la bandeja del sistema en el disco duro y compílelo en un control ocx (recuerde modificar el atributo de solo lectura antes de compilar. A veces se le pedirá que guarde directamente primero).

Luego agregue un control de cambios (proyecto -Componentes-Examinar).

Será mejor que coloques este ocx en C:\WINDOWS\system32.

Cambiar las propiedades del control. Las propiedades intrínsecas se utilizan para establecer si se mostrarán en la bandeja. Verdadero significa mostrarlo en la bandeja, Falso significa no mostrarlo. La propiedad TrayIcon es el estilo del icono que se muestra en la bandeja. La propiedad TrayTip es el texto de sugerencia que se muestra cuando se mueve el mouse para cambiar el control. Si desea minimizar el programa y mostrarlo en la bandeja, haga lo siguiente:

Private subform_Resize()

Si I. WindowState=minimizar y luego

cSysTray1. InTray = verdadero

i. Visible = FalseEnd If

Conector final

Haga clic en el icono de la bandeja para mostrar el programa, como se muestra a continuación:

private Sub csystray 1 _ MouseDown(El botón es un entero, Id. de largo)

I. EstadoVentana = vbNormal

i. visible = verdadero

cSysTray1. EnTray = Falso

i. SetFocus

Conector final