|
轻松实现控件间托拽操作
> ListBox1.Items.Add("Item " & i)
Next
ListBox2.AllowDrop = True
End Sub
Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
Dim itemIndex As Integer
itemIndex = ListBox1.IndexFromPoint(e.X, e.Y)
If itemIndex >= 0 Then
ListBox1.DoDragDrop(ListBox1.Items(itemIndex), DragDropEffects.Copy)
End If
End Sub
Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop
Dim sItem As String
sItem = e.Data.GetData(DataFormats.Text).ToString
ListBox2.Items.Add(sItem)
ListBox1.Items.RemoveAt(ListBox1.FindString(sItem))
End Sub
1页 > 2页 >
查看上一页
返回分类首页 返回96PC首页
查看下一页 |
