RE:Consulta (nose si se pueda) LA REFINITIVA
Hola de nuevo novato.
Como he tenido diez minutos antes de ponerme con el Call Of Duty 4 te he preparado lo que pides.
Este codigo esta patentado por mi asi que si lo quieres usar tendras que pagarme (ji ji ji, si cuela, pues cuela).
Empezamos: En tu form añade un Timer con la propiedad Enable a false y la Interval a 20 por ejemplo.
Luego al evento click del boton en cueston le pones este codigo:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'Iniciamos el movimiento del Button al iniciar el timer
If Timer1.Enabled = False Then
Timer1.Enabled = True
Label1.Text = "Timer Activado"
Else
'Detenemos el movimiento del Button al detener el timer
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label1.Text = "Timer Desactivado"
End If
End If
End Sub
Bien y ahora en el evento MouseMove de tu form le pones este codigo:
'Al detectarse movimiento del raton en el formulario
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
'movemos el Button1 si el evento timer esta activado si no, no
If Timer1.Enabled = True Then
Button1.Top = e.Y
Button1.Left = e.X
Else
End If
End Sub
E VOILÁ !! Al hacer click al boton, el mismo seguira al raton hasta el infinito y mas allá!
Bueno, siempre y cuando el infinito sean los bordes de tu form.
Un saludo, Antonio F. Gutierrez