轻松实现控件间托拽操作
2002-08-28 08:58
555 查看
在Vb.net里实现ListBox之间的托拽,首先要使接受托拽数据的控件的AllowDrop属性设为真。再要处理的就是托拽效果,AllowedEffect是设置托拽的源控件的动作效果,而Effect是设置目标控件的动作。这些东东可以在DragEventArgs Members中查到!
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Int32
For i = 0 To 9
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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Int32
For i = 0 To 9
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
相关文章推荐
- VC与Delphi之间动态链接库互相调用
- 用Ole Automation实现Delphi和AutoCad之间的数据交换
- delphi中的时间操作技术(1)
- delphi中的时间操作技术(2)
- IP地址的隐藏(delphi实现 )
- 解析IP地址为主机域名
- 将某一主机域名解析为IP地址
- 使用C#开发COM+组件
- DOM心得
- VB计算农历的算法
- 用MCI命令做一个播放器
- MCI播放器在VB中实现
- 用MSComm控件实现来电显示
- 用VB把数字转成中文字符串
- 杀死一个正在运行的程序
- 输出SHELL32.DLL的图标
- Netscaler数据索引String Map与Pattern Set的区别
- 2014年软考数据库系统工程师知识点讲解(1)
- String类