\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
PictureBoxSoltar.Drop = True
PictureBox1.tag = "cb.png"
PictureBox1.picture = Picture["cb.png"]
PictureBox2.tag = "ce.png"
PictureBox2.picture = Picture["ce.png"]
PictureBox3.tag = "co.png"
PictureBox3.picture = Picture["co.png"]
PictureBox4.tag = "cc.png"
PictureBox4.picture = Picture["cc.png"]
Drag.icon = Picture["drop.png"] \'icono que muetra cuando arrastramos algo.
End
\'cuando suelto, cargo la imagen que indica el path guardado en el objeto drag
Public Sub PictureBoxSoltar_Drop()
PictureBoxSoltar.Picture = Picture[Drag.data]
End
\'
\'Uso el método drag para informar que dato es arrastrado si pulso en el control
Public Sub PictureBox1_MouseDrag()
PictureBox1.Drag(PictureBox1.tag)
End
Public Sub PictureBox2_MouseDrag()
PictureBox2.Drag(PictureBox2.tag)
End
Public Sub PictureBox3_MouseDrag()
PictureBox3.Drag(PictureBox3.tag)
End
Public Sub PictureBox4_MouseDrag()
PictureBox4.Drag(PictureBox4.tag)
End
\'defino el icono del mouse mientras arrastro algo....
Public Sub Form_DragMove()
Drag.Show()
End