Botón que se mueva y que se detenga al dar clic a otro botón...

[stuart_david3]

Hola a todos, eh estado trabajando con una aplicación en windowsforms de visual basic, pero no tengo ni idea de lo siguiente... Quisiera saber como poder hacerle para hacer que un botón se mueva y mediante otro botón hacer que se pare...

Utilice algo como esto, pero pues no me ha funcionado:

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button1.Top = 10
Button2.Top = -20
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x = 1
While x
Button1.Top = 10
Button1.Top = -20
End While
End Sub
End Class


Agradecería mucho el que me pudieran ayudar...

[lokoman]

Hola!
Segun tu codigo NO le dices que se mueva... lo dejas fijo, intenta con un Timer (Vb6.0), algo asi:

Código vb:

Private X as integer
 
Private Sub Form_Load()
    Timer.Interval=1000 ' 1 Segundo
    Timer.Enabled=True
End Sub
 
Private Sub Timer_Timer()
    X=X+1
    Button1.Top =  X
 
    If X=20 then Timer.Enabled=False
End Sub
 

[stuart_david3]

Muchas gracias lokoman ya voy entendiendole... Funciona con un botón al darle clic pues se mueve...

Ahora lo que me gustaría es que al darle clic al botón 1 y se empiece a mover, pero como le podré hacer para que al darle clic a un botón 2 el botón 1 se empiece a mover y al darle clic de nuevo al botón 2 el botón 1 se detenga??...

De nuevo mil gracias y disculpa por la tardanza y la molestia!!!...

[Insomnia]

Hola

Si al arrancar la aplicación no quieres que el botón se mueva, pon Timer.Enabled=False. En el botón 2 puedes poner un If mirando el estado del timer y hacer lo contrario, algo como:

Código:

Private Sub Command2_Click()

    If Timer1.Enabled = False Then
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
    End If
    
End Sub

--Saludos--