- Private Sub ListView2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView2.MouseDown
- If ListView2.SelectedItems.Count > 0 Then
- ListView2.DoDragDrop(ListView2.Text.ToString, DragDropEffects.Copy)
- Else
- ListView2.DoDragDrop(ListView2.Text.ToString, DragDropEffects.None)
- End If
- End Sub
-
- Private Sub ListView3_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView3.DragEnter
- e.Effect = DragDropEffects.Copy
- End Sub
-
- Private Sub ListView3_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView3.DragDrop
- процедура обработки к примеру ListView3.Items.Add(ListView2.selectedItems(0).Text)
- End Sub
выбираем и перетаскиваем.
Ответить
|