Indetectables

Publicado: **18 Oct 2008, 00:20**

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!

Publicado: **05 Feb 2009, 05:16**

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!!!!!!!!

Publicado: **16 Feb 2009, 18:58**

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

Publicado: **24 Feb 2009, 19:36**

y como ago para que se ponga arribita del reloj?
saludos

Publicado: **10 May 2009, 13:16**

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

Indetectables

[VB] Hacer notificacion estilo msN

[VB] Hacer notificacion estilo msN

Re: [VB] Hacer notificacion estilo msN

Re: [VB] Hacer notificacion estilo msN

Re: [VB] Hacer notificacion estilo msN

Re: [VB] Hacer notificacion estilo msN