VB.net 从文件更新列表项

Question

我单击一个按钮（使用此代码）将文件“testexam”中的行加载到列表框“lstHere”中。 Testexam 将由另一个程序更新，我想要一个代码将“testexam”的新行复制到“lstHere”的底部。其次，选定的索引应该出现在新列表的第一项。任何帮助将不胜感激。

Private Sub
    Dim MReader As New StreamReader("C:\Users\Sparrow\testexam.txt")
    Dim this1 As String = ""
    Dim thisline(6000) As String


    Dim i As Integer = 0

    Do Until MReader.Peek = -1
        this1= MReader.ReadLine

        thisline(i)= this1

        lstHere.Items.Add(thisline(i))

        'go to the next line.
        i = i + 1

    Loop
End Sub

Answer 1

我不知道您是如何尝试实现此功能的，但它适用于不同的按钮。

按钮1：

'Add the selected item to the top
ListBox1.Items.Insert(0, ListBox1.SelectedIndex)

按钮2：

'Delete duplicates
Dim items(ListBox1.Items.Count - 1) As Object
ListBox1.Items.CopyTo(items, 0)
ListBox1.Items.Clear()
ListBox1.Items.AddRange(items.AsEnumerable().Distinct().ToArray())