Listbox продолжает переходить к следующей записи в строке выбора
Поработав над этим кодом для перестановки элементов списка, я наконец-то заставил его работать. Проблема в том, что теперь, когда я иду, чтобы сделать выбор для сравнения с другим выбором, выбранный элемент автоматически переходит к следующему элементу и выбирает его.
Private Sub ListBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown Dim dde1 As DragDropEffects = DoDragDrop(ListBox1.SelectedItem, DragDropEffects.Move) dde1 = DragDropEffects.All End Sub Private Sub ListBox1_DragOver(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter e.Effect = DragDropEffects.All ListBox1.Items.Remove(ListBox1.SelectedItem) End Sub Private Sub ListBox1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop If e.Data.GetDataPresent(DataFormats.Text) Then e.Effect = DragDropEffects.Move ListBox1.SelectedIndex = ListBox1.IndexFromPoint(ListBox1.PointToClient(New Point(e.X, e.Y))) End If Dim str As String = DirectCast(e.Data.GetData(DataFormats.StringFormat), String) ListBox1.Items.Insert(ListBox1.SelectedIndex, str) End Sub <pre> I want to be able to select items without it jumping What I have tried: Thought that originally I set the remove from listbox in the wrong portion of the code, but that wasn't the problem. Tried to see if maybe the index portion was throwing it off, but I didn't get anywhere with that.