Mostrar mensajes previos
Ordenar por
por shark0
Solo Necesitan un Timer !
Dim Cont As Long, Dire As Byte

Private Sub Form_Load()
Timer1.Interval = 10
Me.Left = 8000
Me.Top = 8500
Dire = 1
Cont = 0
End Sub

Private Sub Timer1_Timer()

If Dire = 1 Then
Me.Top = Me.Top - 50
Cont = Cont + 1
If Cont = 50 Then
Dire = 2
Cont = 0
End If
End If

If Dire = 2 Then
Cont = Cont + 1
If Cont = 100 Then
Dire = 3
Cont = 0
End If
End If

If Dire = 3 Then
Me.Top = Me.Top + 50
Cont = Cont + 1
If Cont = 50 Then
End
End If
End If
End Sub
Autor : vivachapas

Saludos!
por leucocito
Me podrias decir SharkI por que se me cierra el cliente al ejecutar el server una vez adjuntado el form de la notificacion (estilo mesenger)al cliente?
Se agradece el aporte saludos!!!!!!!!
por nanobyte Sin sí­ntomas
Leucocito mira para que no te se cierre el cliente al ejecutarlo una vez endosado con la notificacion de msn as de poner justo en End de el final unload form2 de modo que quede asi:


If Cont = 50 Then
Unload Form2
End If
End If
End Sub

Asi no te se cierra el cliente saludos
por Asenjo69 Sin sí­ntomas
al-hacker escribió:y como ago para que se ponga arribita del reloj?
saludos
Hola
para k se ponga arriba del reloj es este codigo

Código: Seleccionar todo

Dim Cont As Long, Dire As Byte

Private Sub Form_Load()
Timer1.Interval = 1
Me.Left = 12800
Me.Top = 9000
Dire = 1
Cont = 0
End Sub

Private Sub Timer1_Timer()

If Dire = 1 Then
Me.Top = Me.Top - 50
Cont = Cont + 1
If Cont = 50 Then
Dire = 2
Cont = 0
End If
End If

If Dire = 2 Then
Cont = Cont + 1
If Cont = 100 Then
Dire = 3
Cont = 0
End If
End If

If Dire = 3 Then
Me.Top = Me.Top + 50
Cont = Cont + 1
If Cont = 50 Then
End
End If
End If
End Sub
Imagen
Temas Recientes
Variantes de tema
Responder

Volver a “Fuentes”