Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/02/2004, 11:10
Avatar de chronos682
chronos682
 
Fecha de Ingreso: febrero-2004
Ubicación: Tunja - Boyacá - Colombia
Mensajes: 627
Antigüedad: 20 años, 3 meses
Puntos: 69
Exclamación

Para que aparezca un ícono al lado de la hora del sistema se necesita un control llamado systray.ocx, por lo general este viene instalado con algunas versiones de VB. Para agregarlo oprime las teclas Ctrl + T y búscalo en la lista. Cuando lo cargues en un formulario, puedes colocar en el evento Resize de este el siguiente código:

If Me.WindowsState <> vbMinimized Then
Systray.Intray = False
Me.Visible = True
Else
Systray.Intray = True
Me.Visible = False
End If

También le puedes cambiar el ícono que quieres que aparezca al lado de la hora del sistema, cambiando la propiedad DefaultIcon.

Para que se restaure la ventana, debes colocar el siguiente código en el evento MouseUp del nuevo control (Systray):

If Button = vbLeftButton Then
Systray.Intray = False
Me.Visible = True
End If

Es todo...

Si deseas más información escríbame.
__________________
Si te gustó la respuesta dale +1

HERNÁN G. SIABATO M.
[email protected]