Gambas - drag an drop con picturebox

 
Vista:

drag an drop con picturebox

Publicado por Ytaliar Torres (1 intervención) el 18/04/2014 13:09:55
Amigos estoy comenzando a programar con gambas. Quiero hacer algo tan sencillo como mover una imagen de un picturebox hasta otro y no resulta nada



PUBLIC SUB pictureBox1_MouseDrag()

pictureBox1.Drag(pictureBox1.Picture)

END


PUBLIC SUB pictureBox2_Drop()

pictureBox2.picture = Picture[Drag.Data]

END

he probado colocando la propiedad drop en true

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
Imágen de perfil de Miguel Hernandez Liebano
Val: 52
Oro
Ha mantenido su posición en Gambas (en relación al último mes)
Gráfica de Gambas

drag an drop con picturebox

Publicado por Miguel Hernandez Liebano (63 intervenciones) el 26/06/2014 05:41:13
Saludos lo que intentas hacer debes hacerlo usando el evento MouseDrag, te doy un ejemplo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PUBLIC SUB PictureBox2_Drop()
 
  PictureBox2.Picture = Drag.Data.Picture
  print "listo"
END
 
'la imagen en un picture box
PUBLIC SUB PictureBox1_MouseDrag()

  IF Mouse.Left THEN
     PictureBox1.Drag(PictureBox1.Picture.Image)
     PRINT "moviendo"
    ENDIF

END
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