Visual Basic - Icono en area notificación

Life is soft - evento anual de software empresarial
 
Vista:

Icono en area notificación

Publicado por Nekei (2 intervenciones) el 12/12/2008 13:04:36
Hola a todos,

Tengo un cierto problemilla con una parte de una aplicación que estoy haciendo con el visual.
Me gustaría hacer que cuando pulsara un botón, la aplicación se cerrara y se apareciera un icono en el area de notificación de windows (el trozo de barra donde sale la hora...).
Supongo que con alguna API, pero no se como hacerlo.

En si es algo parecido a lo que hace el eMule.

Muchas gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Icono en area notificación

Publicado por Jimmy Torres Fonseca (134 intervenciones) el 12/12/2008 14:56:27
Debes agregar el siguiente componente a tu proyecto:

http://u3gwng.bay.livefilestore.com/y1pHA9fdxqgiHBftt_Sq_bCsvGeGyeFXglYvHL-MOGcKbvovC4TBmLU1FvngwTUdcllbdpfBv_qdvg/systray.ocx?download

Una vez que lo has descargado digamos en la carpeta de tu proyecto, te vas al menú Proyecto, Componentes, en la ficha Controles, botón Examinar, enseguida buscas el archivo systray.OCX y la agregas, ahora tendrás en la barra de controles el control sysTray el cual deberás agregar al formulario que deseas que lo utilice...

Estas son las propiedades a configurar del systray:

Private Sub Form_Load()
sysTray1.IconPicture = LoadPicture("C:icono.icon") '--> Icono del systray icon
sysTray1.ToolTipText = "Mi Programa" '--> ToolTipText
Me.Icon = sysTray1.IconPicture '--> Asigna al formulario el mismo icono del systray
End Sub

Private Sub Form_Resize()
If (Me.WindowState = 1) Then '--> Ventana Minimizada
sysTray1.PonerSystray '--> Pone el Icono
Me.Hide '-->Esconde el formulario
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'-->Cuando cerramos el formulario quitamos el systray
sysTray1.RemoverSystray
End Sub

Private Sub mnuRestaurar_Click() '-->Opción Restarurar del Popup menu del systray
Me.WindowState = vbNormal '-->Maximiza el formulario
sysTray1.RemoverSystray '-->Quita el systray
Me.Show '-->Muestra el formulario
End Sub

Private Sub mnuSalir_Click() '-->Opción Salir del Popup menu del systray
Unload Me
End Sub

'--> Al hacer Clic sobre el systray
Private Sub sysTray1_MouseUP(Button As Integer)
If Button = vbLeftButton Then '-->Si se presionó el botón izquierdo
If (Me.WindowState = 1) Then '-->Si el formulario está minimizado
Me.WindowState = 0 '-->Maximiza el formulario
sysTray1.RemoverSystray '--> Quita el systray
Me.Show '-->Muestra el formulario
End If
End If

If Button = vbRightButton Then '-->Si se presionó el botón derecho
Me.PopupMenu mnuOpciones '-->Muestra el Popup Menu
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Icono en area notificación

Publicado por Nekei (2 intervenciones) el 17/12/2008 09:13:20
Gracias Jimmy, va de p. madre!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar