sábado, 16 de agosto de 2008

Pop-up al estilo tip de windows

Hace poco estuve haciendo un programa y me encontré con el problema de ubicar un formulario al pie de la barra de tareas en la parte inferior-derecha, similar al que salen con los tips de windows, o a las notificaciones d algunos programas, la cuestión era poder hacerlo para cualquier resolución de pantalla:


Y la solución que halle fue esta:

Código:
'Pop-up tipo tip windows
'Al cargar el form
Private Sub Form_Load()
' Con la propiedad Height del objeto Screen se obtiene
' el ancho de alto de la pantalla, le restamos el alto del form
' para obtener la altura en la cual se mostrara el pop-up
'asignadole a la propiedad top del objeto Form1
Form1.Top = Screen.Height - Form1.Height - 495 'esos 495 son los de la barra tareas
' De igual forma que en la linea anterior, pero esta aplicado
' al ancho de la pantalla
Form1.Left = Screen.Width - Form1.Width - 30 'los 30 son para darle una luz al pop-up
'Obtenemos el valor en pixeles de la resolucion de la pantalla
'dividiendo en 15 valor de la propiedad Height del objeto Screen
Label1.Caption = Screen.Height / 15
Label2.Caption = Screen.Width / 15
End Sub
'para cerrar el pop-up
Private Sub Label3_Click()
End
End Sub

Espero les sirva, y les ayude a la hora de diseñar sus aplicaciones, dejo el source también para que vean como esta hecho el formulario.

Source:
http://rapidshare.com/files/137728523/Pop-up.zip.html

0 comentarios:

 
Plantilla hecha por Dante Araujo