raga.. mi sono impallato..
cerco di far migrare un imagine da una picturebox a un altra ma dimentico qualcosa,
codice:Public Class Form1 Dim immagine As Image Private Sub Form1_Load immagine = uno.Image End Sub Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles uno.MouseDown draga() End Sub Public Sub draga() uno.DoDragDrop(imagine, DragDropEffects.Move) End Sub Private Sub picturebox2_Dragover(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles due.DragEnter picturebox2.Image = immagine End Sub End Class

Rispondi quotando