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

我不知道你是如何尝试实现这一点的，但它适用于不同的按钮。

Button1：

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

将Button2：

'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())

VB.net更新文件

1 个答案: