11/02/2004, 21:45
| |||
| |||
| mostrar icono al lado del reloj en la barra de tareas Hola, tengo una aplicación en visual basic la cual trabaja con un MDI, lo que quiero hacer es que cuando oprima el botón de minimizar la aplicación no se muestre en la barra de tareas sino que muestre un icono al lado del reloj y/o fecha que muestra windows en la parte derecha de la barra de tareas. alguien sabe como hacer esto? |
|
13/02/2004, 11:10
| ||||
| ||||
 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. |
|
13/02/2004, 12:57
| |||
| |||
| si tengo otra pregunta.. Hola, estuve buscando entre los controles que están en mi máquina, pero no tengo ningún systray así que baje uno de la web, pero no me gustó el funcionamiento puesto que derepente hacia cosas raras; entonces me preguntaba si tu pudieras enviarme el control que tu utilizas? mi dirección de correo es [email protected] de antemano, muchas gracias! Javier Canto Marin |
|
13/02/2004, 13:47
| |||
| |||
| gracias por tu ayuda, ya encontre el control y ya funciona del modo que necesitaba... como observación en el código que me pasaste te hace falta una línea que sería la siguiente: en el Resiza del formulario If Me.WindowState = vbMinimized Then SysTray.InTray = True Me.Visible = False Else SysTray.InTray = False Me.Visible = True End If Me.WindowState = 2 porque de lo contrario cuando minimices el formulario al darle click al icono en el systray no se restauraría... :D bueno, de todas formas muchisimas gracias por tu ayuda... |
|
13/02/2004, 17:17
| |||
| |||
| la verdad no recuerdo el url, pero haz la busquéda en google pon como críterio de busquéda systray.ocx te devolverá varias lugares en donde podrás descargar el control... |
|
13/02/2004, 19:57
| |||
| |||
| en www.portalvb.com en la seccion de vb 32 bits -> controles ocx ahi hay varios ocx para eso. Saludos. |
|
13/02/2004, 20:06
| ||||
| ||||
| grax pero la verdad es que si encontre en Google varios Systray.ocx pero ninguno cn las propiedades que mencionaba en el codigo...gracias de todas formas por el Tip...seguire buscando el control pq parece sencillo el codigo....salu2 |
Este tema le ha gustado a 1 personas (incluyéndote) 
