Buenas como estan. bueno les cuento. quiero lograr hacer que una imagen puesta en un imge o un picturebox se mueva. osea que pueda moverce por un area determinada dependiendo de las ordenes que yo ponga en algun tex. si alguien puede ayudarme se lo agradesere.
salu2
Haber si esto te sirve :
colocas en un form un timer con Intervalo a 100 (Timer1)
colocas la imagen en el centro del form (Image1)
colocas el Text1(text1) colcoale text1.text=20
Copia y pega este code .la imagen deberia desplazarse a la izquierda hasta llegar al limite "20" (es la distancia que hay entre la imagen y el borde del Formulario) que pusiste en el text1 .
Y asi si queres agregas text y le pones los demas limites que vos quieras.
Private Sub Timer1_Timer()
'Cuando la imagen llega a la orden que pusiste en el Text1
If Image1.Left > Text1 Then
Image1.Left = Image1.Left - 40
Else
'podes colocar para donde queres que se mueva
'la imagen ,yo le puse que Salga del Proceso.
Exit Sub
End If
End Sub
Espero te sirva ,un saludo .-.
de marabilla va como piña. ahora una pregunta mas para moverlo para arriba o abajo?
gracias salu2
La propiedad .Top. Si aumenta, el control baja, y si disminuye, el control sube (con respecto al form).
Saludos.-
te servira esto
Citar
private sub text1_change()
tim=image1.top
lim=image1.left
select case text1.text
case 2
image1.top=tim+120
tim=image1.top
text1.text=""
case 8
image1.top=tim-120
tim=image1.top
text1.text=""
case 4
image1.top=lim-120
lim=image1.left
text1.text=""
case 6
image1.top=lim+120
lim=image1.left
text1.text=""
case else
text1.text=""
end select
end sub
lo puse con 4 - 8 - 6 - 2 por que son los cursores en los numeros...
sino compruebas que se no se sale del form desaparecera y tal...xD