VB.Net程序设计:ListBox拖动项排序代码和两个ListBox操作
简单代码。供自己用。
'Dim _listA,_listB As New List(Of String) 'Dim indexofsource As Integer '//拖动的起始索引 'Dim indexoftarget As Integer '//拖动的结束索引 '...... Private Sub LstB_DragDrop(ByVal sender As Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles LstB.DragDrop Dim lb As ListBox = CType(sender,ListBox) indexoftarget = lb.IndexFromPoint(lb.PointToClient(New Point(e.X,e.Y))) If (indexoftarget <> ListBox.NoMatches) Then Dim temp As String = lb.Items(indexoftarget).ToString() lb.Items(indexoftarget) = lb.Items(indexofsource) lb.Items(indexofsource) = temp lb.Selectedindex = indexoftarget End If End Sub Private Sub LstB_DragOver(ByVal sender As Object,ByVal e As System.Windows.Forms.DragEventArgs) Handles LstB.DragOver '//拖动源和放置的目的地一定是一个ListBox If (e.Data.GetDataPresent(GetType(Integer)) And (CType(sender,ListBox)).Equals(Me.LstB)) Then e.Effect = DragDropEffects.Move Else e.Effect = DragDropEffects.None End If End Sub Private Sub LstB_MouseMove(ByVal sender As System.Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles LstB.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then indexofsource = (CType(sender,ListBox)).IndexFromPoint(e.X,e.Y) If (indexofsource <> ListBox.NoMatches) Then 'NoMatches=-1 'CType(sender,ListBox).DoDragDrop(CType(sender,ListBox).Items(indexofsource).ToString(),DragDropEffects.All) CType(sender,ListBox).DoDragDrop(indexofsource,DragDropEffects.All) End If End If End Sub Private Sub BtnAdd_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnAdd.Click If Me.LstA.SelectedItems.Count = 1 Then If Me._listB.Contains(Me._listA.Item(Me.LstA.Selectedindex)) = False Then Me._listB.Add(Me._listA.Item(Me.LstA.Selectedindex)) ShowListB() End If End If End Sub Private Sub BtnAddAll_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnAddAll.Click _listB.Clear() For Each s As String In _listA _listB.Add(s) Next ShowListB() End Sub Private Sub BtnRemove_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnRemove.Click If Me.LstB.SelectedItems.Count = 1 Then _listB.RemoveAt(Me.LstB.Selectedindex) ShowListB() End If End Sub Private Sub BtnRemoveAll_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnRemoveAll.Click _listB.Clear() Me.LstB.Items.Clear() End Sub
原文地址:https://www.jb51.cc/vb/260809.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。