Visual Basic - Como crear una ventana emergente tipo messeger

Life is soft - evento anual de software empresarial
 
Vista:

Como crear una ventana emergente tipo messeger

Publicado por juan (2 intervenciones) el 15/04/2004 13:58:11
Necesitaria crear una venta emergente de las del tipo que salen en el messeger... Como se hace? He pensao en cambiar de posicion el formulario con timer, es un poco cutre... pero bueno funsiona. Otra idea??
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:Como crear una ventana emergente tipo messeger

Publicado por Dennis (103 intervenciones) el 15/04/2004 19:44:32
El usar un timer es una buena idea, pero recuerda que un timer es un control que trabaja fuera de proceso, por lo que habres otro hilo de proceso y ademas no es muy eficiente usar timers para animaciones, intenta con esto, espero te sirva:

1.- crea un nuevo proyecto exe estandar de visual basic
2.- borra la propiedad caption del formulario
3.- asignale false a la propiedad controlbox del formulario
4.- inserta el siguiente codigo al formulario y listo. bye

Private Sub Form_Activate()
Dim bAnimado As Boolean ' impide la animaciones repetidas
Dim nTop As Single ' posicion top

If bAnimado = False Then

bAnimado = True

For nTop = Screen.Height To Screen.Height - Me.Height Step -0.1
Me.Top = nTop
Next

End If

End Sub

Private Sub Form_Load()

Me.Move Screen.Width - 2925, Screen.Height, 2925, 2925

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