1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
Dim i As Integer
i = ImageList1.Tag
ListView1.Items.Clear()
ListView1.Items.Add("", i)
ListView1.Update()
End Sub
Private Sub lbl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl1.MouseDown
Dim Lab As Label
Lab = CType(sender, Label)
Lab.DoDragDrop(Lab, DragDropEffects.Copy)
ImageList1.Tag = 0
End Sub
Private Sub lbl2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl2.MouseDown
Dim Lab As Label
Lab = CType(sender, Label)
Lab.DoDragDrop(Lab, DragDropEffects.Copy)
ImageList1.Tag = 1
End Sub |
Partager