Visual Basic - Ubicar imagen ó ícono según coordenadas

Life is soft - evento anual de software empresarial
   
Vista:

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ubicar imagen ó ícono según coordenadas

Publicado por Diego (18 intervenciones) el 31/05/2017 16:19:50
Buenas...probando una y otra cosa he logrado lo siguiente: al realizar un clic sobre un command, dibujar un círculo sobre el formulario en la posición que en el código se detalla.
Ahora bien, lo que no he logrado es que tome las coordenadas que ingreso en los textbox.

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
 
Private Sub Command1_Click()
Dim a, radio As Integer
a = Int(Rnd * 256)
radio = Int(20)
frmcirculo.ForeColor = &HFF8080
frmcirculo.Circle (58, 220), radio
End Sub

Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ubicar imagen ó ícono según coordenadas

Publicado por Diego (18 intervenciones) el 31/05/2017 16:36:53
Aquí la solución:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    Dim a, b, c, radio As Integer
    a = Int(Rnd * 256)
    radio = Int(20)
    frmcirculo.ForeColor = &HFF8080
    b = Text1.Text
    c = Text2.Text
    frmcirculo.Circle (b, c), radio
End Sub
 
Private Sub Form_Load()
' Modo de escala del formulario en pixeles
Me.ScaleMode = vbPixels
End Sub

Faltaría (ya que dibujar sobre formulario no es lo que busco) dibujar los círculos sobre un picture ó image.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ubicar imagen ó ícono según coordenadas

Publicado por Christian Cmc1476@hotmail.com (697 intervenciones) el 02/06/2017 03:28:56
Busca en Google creación de controles en tiempo de ejecución. Hay varios ejemplos
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/30.htm

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar