Ubicar imagen ó ícono según coordenadas
Publicado por Diego (18 intervenciones) el 31/05/2017 13:15:08
Buen día. A ver si me se explicar:
En un formulario tengo una imagen, un picture, 2 text (con coordenadas x e y) y un command.
Al realizar un clic sobre el command, el picture se posiciona según las coordenadas de los textbox.
Al cambiar las coordenadas y clickear nuevamente sobre el command, el picture cambia de posición. Pero lo que quiero es que ese mismo picture vaya quedando en las posiciones anteriores; así que supongamos que tenga 10 rangos de coordenadas, que haya 10 pictures.
Dejo el código básico:
Muchas gracias.
En un formulario tengo una imagen, un picture, 2 text (con coordenadas x e y) y un command.
Al realizar un clic sobre el command, el picture se posiciona según las coordenadas de los textbox.
Al cambiar las coordenadas y clickear nuevamente sobre el command, el picture cambia de posición. Pero lo que quiero es que ese mismo picture vaya quedando en las posiciones anteriores; así que supongamos que tenga 10 rangos de coordenadas, que haya 10 pictures.
Dejo el código básico:
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Me.Cls'Copia el gráfico en el formulario con los valores
Me.PaintPicture Picture1.Picture, CSng(Text1), CSng(Text2)
End Sub
Private Sub Form_Load()
' Modo de escala del formulario en pixeles
Me.ScaleMode = vbPixels
End Sub
Muchas gracias.
Valora esta pregunta
0