Ver Mensaje Individual
  #5 (permalink)  
Antiguo 24/05/2011, 12:04
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 21 años, 1 mes
Puntos: 19
Respuesta: Formulario cerca de la hora, siempre en la misma posicion

Es muy facil... Usas un timer con el que le das la velocidad...

Es un calculo matematico segun el tamaño de la pantalla y de tu form

Te lo hise rapido para que se entienda... eso despues lo adaptas.. Es un simple ejemplo donde se pone un timer, un commandbutton en un form... El timer tiene que estar ENABLED=FALSE y INTERVAL=10

Despues se le puede agregar para tener ventana siempre visible...

Código vb:
Ver original
  1. Private Sub Command1_Click()
  2. Me.Top = Screen.Height
  3. Me.Left = Screen.Width - Me.Width
  4. Timer1.Enabled = True
  5. End Sub
  6.  
  7. Private Sub Timer1_Timer()
  8. If Me.Top > (Screen.Height - Me.Height) Then
  9.     Me.Top = Me.Top - 100
  10. Else
  11.     Timer1.Enabled = False
  12. End If
  13. End Sub