¿como hago para mover un objeto en visual basic 6.0?
Tengo un circulo dentro del formulario el problema es que no se como moverlos tengo cuatro botones diferentes (derecha, izquierda, arriba y abajo) cuando apriete cada una de esos botones el ciculo debera moverse conforme corresponda como puedo hacer eso, agradeceria la ayuda gracias.
Answers & Comments
Verified answer
Aquí tienes el código para los botones: "ArribaCmd", "AbajoCmd", "DerechaCmd" y "IzquierdaCmd" y la figura: "shape"
Solo tienes que utilizar la propiedades de objeto: Top, para la altura que esta "invertida" como puedes comprobar; y Left para mover hacia los lados; y decirle, en la derecha de la igualdad, cuanto quieres que se mueva. En el ejemplo he puesto 100, para que se percibiera claramente, porque con 1 apenas se percibe el cambio.
Private Sub ArribaCmd_Click()
shape.Top = shape.Top - 100
End Sub
Private Sub AbajoCmd_Click()
shape.Top = shape.Top + 100
End Sub
Private Sub DerechaCmd_Click()
shape.Left = shape.Left + 100
End Sub
Private Sub IzquierdaCmd_Click()
shape.Left = shape.Left - 100
End Sub
jugas con los botones y las propiedades del circulo.
supongamos q el circulo se llama "circulo"
arriba = "arriba"
y asi...
todo esto en el nombre de id dle objeto eh!
entonces en el evento onclick de cada boton
sub Arriba_Click()
circulo.top = circulo.top - 1
end sub
sub abajo_Click()
circulo.top = circulo.top + 1
end sub
sub izquierda_Click()
circulo.top = circulo.left - 1
end sub
sub derecha_Click()
circulo.top = circulo.left + 1
end sub
el +1 es l oq va moviendo el objeto.. si no queres cnasarte tanto le pones +10 o +100 para verificarlo
asi de simple
saludos!!
FONDO DE FORMULARIO COLOR NEGRO
X=a 'centro X de pantalla
Y=b ' centro Y de pantalla
dibujar circulo en la posicion (X,Y) de color VERDE
=========
APRETAR DERECHA
dibujar circulo en (X,Y) de color NEGRO 'borrar circulo
X=X+1
dibujar circulo en (X,Y) de color VERDE
=========
APRETAR IZQUIERDA
dibujar circulo en (X,Y) de color NEGRO 'borrar circulo
X=X-1
dibujar circulo en (X,Y) de color VERDE
===========
APRETAR ARRIBA
dibujar circulo en (X,Y) de color NEGRO 'borrar circulo
Y=Y-1
dibujar circulo en (X,Y) de color VERDE
===========
APRETAR ABAJO
dibujar circulo en (X,Y) de color NEGRO 'borrar circulo
Y=Y+1
dibujar circulo en (X,Y) de color VERDE