Drag-Drop di un'immagine in una DrawingArea

Mostriamo un possibile codice per effettuare un semplice Drag-Drop di un'immagine da una PictureBox in una DrawingArea.

Private pc As Picture
Private x As Short
Private y As Short


Public Sub Form_Open()
 
' Attiva la capacità della "DrawingArea" di sollevare l'evento "_Drop():
 DrawingArea1.Drop = True
 
 PictureBox1.Picture = Picture.Load("/percorso/del/file/immagine")
 
End


Public Sub PictureBox1_MouseDrag()
 
' Preleviamo e trasciniamo l'immagine dalla "PictureBox":
 Drag.Icon = Last.Picture    
 Last.Drag(Last.Picture.Image)  
 
End


Public Sub DrawingArea1_Drop()
 
 pc = Drag.Data.Picture
 x = Drag.X
 y = Drag.Y
 
 DrawingArea1.Refresh
 
End


Public Sub DrawingArea1_Draw()   ' Si disegna l'immagine nella "DrawingArea"
 
 If Object.Address(pc) == 0 Then Return
 
 With Paint
   .DrawPicture(pc, x, y, pc.W, pc.H)
   .End
 End With
 
End