轻松实现控件间托拽操作
来源:互联网 发布:apache abs.exe 编辑:程序博客网 时间:2024/04/29 12:17
在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
- 轻松实现控件间托拽操作
- 轻松实现控件间托拽操作
- 利用递归轻松实现TreeView控件中子节点的全选操作[VB]
- VC++中轻松实现滑动控件
- VC++中轻松实现滑动控件
- 轻松实现xp下控件界面
- VC轻松实现CTreeCtrl控件双击响应
- VC++中轻松实现滑动(Slider)控件
- VC6 轻松实现 xp 样式控件
- VC轻松实现CTreeCtrl控件双击响应
- VC++中轻松实现滑动(Slider)控件
- VC轻松实现CTreeCtrl控件双击响应
- VC轻松实现CTreeCtrl控件双击响应
- VC轻松实现CTreeCtrl控件双击响应
- VC++中轻松实现滑动控件
- VC++中轻松实现滑动(Slider)控件
- C# 位运算轻松实现权限操作
- 使用easydrag轻松实现web控件的拖拽效果
- 把握VB.NET中的流(Stream) (二)
- 第一篇~~~
- 把握VB.NET中的流(Stream) (三)
- shmget() -- 建立共享内存
- 用Asp.Net 来发送E-mail
- 轻松实现控件间托拽操作
- Effective C# 5: 警惕隐式box和unbox操作对程序性能的
- 【转】爱国青年们,不要被人蒙蔽了你明亮的眼睛。。。
- 用XML/XSLT将行数据转换为列数据
- Web Service描述语言 WSDL 详解(1)
- 深入探究JFreeChart(1)
- Web Service描述语言 WSDL 详解(3)
- Web Service描述语言 WSDL 详解(5)
- MP4视频转换通破解 或 MP4/RM转换专家破解