Question

我有一个问题需要帮助。

我正在尝试打开文件对话框，选择文本文件，然后在列表框中显示文本。

我有以下代码。它会打开对话框，但不会在列表框中显示文本。

有什么建议吗？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportKeywordList.Click

    Dim oReader As StreamReader
    OpenFileDialog1.CheckFileExists = True
    OpenFileDialog1.CheckPathExists = True
    OpenFileDialog1.DefaultExt = "txt"
    OpenFileDialog1.FileName = ""
    OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
    OpenFileDialog1.Multiselect = False
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        oReader = New StreamReader(OpenFileDialog1.FileName, True)
        ListBox1.Text = oReader.ReadToEnd()
    End If
End Sub

Answer 1

列表框通过Items集合显示文本，而不是通过Text属性。在ListBox中，Text property表示当前所选项目的文本

可以用这种方式编写一个例子

....
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    Using oReader = New StreamReader(OpenFileDialog1.FileName, True)
        While oReader.Peek <> -1
           ListBox1.Items.Add(oReader.ReadLine())
        End While
    End Using
End If
....

如何让我的文本文件数据显示在列表框中？

1 个答案: