Hola, que tal, les cuento que recien empiezo con vb, estoy usando v studio 2003 porque es el que usamos en el instituto.


quiero hacer un formulario con un boton en el cual cuando le apuntes con el mouse para clickearlo se mueva hacia arriba hasta cierto punto, pero la idea es que solo se mueva cuando le vas a apuntar o pasar el mouse por encima, para eso use MOUSE MOVE, logré que se mueva hacia arriba hasta ese cierto punto, pero si voy y dejo el mouse posicionado en el punto mas alto al que se mueve el boton, el boton no para de moverse... debo de tener un error con el while.
probe poner el while de otra forma y con un if pero solo se mueve una vez y eso no sirve, se tiene que mover siempre que se lo quiera apuntar con el mouse asi no se puede clickear... les dejoj el codigo

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        Dim x As Integer, y As Integer
 
        x = 32
        y = 272
 
        While (y > 220)
            y = y - 3
 
            Button1.Location() = New Point(x, y)
        End While
 
    End Sub

ok pero como hago que para en vez de declararle yo un valor a x o a y, ponerle el valor de las coordenadas actuales?
algo asi como
dim x as integer
x= button.location x
o algo asi, ni idea porque es la primera vez que uso visual

 yo nunca dije que era visual basic 6

Y porque usas while? Si en realidad es el mismo usuario el que hace el ciclo
Cada vez que toques el boton, lo mueves hacia arriba si no supero cierto punto. Algo asi

Public Sub Mover_Button()
Dim X as Integeger = Button1.Location.X
Dim Y as integer = Button1.Location.Y
 
If Y > 200 Then 
    Y-=3
    Button1.Location = New Point(X,Y)
End If
End Sub
 

Se me olvido modificar el bucle, simplemente lo escribi todo de una tajada
El programa correría perfectamente si reemplazas el bucle por una sentencia condicional.

Saludos.

Tutorial vb.net de elGuille

Usa el metodo Focus