Vb.net 如何在VB中将项目添加到其他列表框中？

这是我的密码：

Public Class Form1

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim FindFolder As New FolderBrowserDialog
    FindFolder.ShowDialog()
    TextBox1.Text = FindFolder.SelectedPath
End Sub

Public Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        My.Settings.theSetPath = TextBox1.Text
        My.Settings.isValidPath = True
        My.Settings.Save()
        TextBox1.Text = My.Settings.theSetPath
        Dim folderInfo As New IO.DirectoryInfo(My.Settings.theSetPath)
        Dim txtFilesInFolder() As IO.FileInfo
        Dim cfgFilesInFolder() As IO.FileInfo
        Dim xmlFilesInFolder() As IO.FileInfo
        Dim datFilesInFolder() As IO.FileInfo
        Dim fileInFolder As IO.FileInfo
        txtFilesInFolder = folderInfo.GetFiles("*.txt")
        cfgFilesInFolder = folderInfo.GetFiles("*.cfg")
        xmlFilesInFolder = folderInfo.GetFiles("*.xml")
        datFilesInFolder = folderInfo.GetFiles("*.dat")

        For Each fileInFolder In txtFilesInFolder
            Second.List.Items.Add(fileInFolder.Name)
        Next
        For Each fileInFolder In cfgFilesInFolder
            Second.List.Items.Add(fileInFolder.Name)
        Next
        For Each fileInFolder In xmlFilesInFolder
            Second.List.Items.Add(fileInFolder.Name)
        Next
        For Each fileInFolder In datFilesInFolder
            Second.List.Items.Add(fileInFolder.Name)
        Next
        MsgBox("Testing")
    Catch ex As Exception
        MsgBox("That is not a valid directory.", MsgBoxStyle.Critical, "Error")
        My.Settings.isValidPath = False
        My.Settings.Save()
    End Try

    Second.Show()

End Sub

Public Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim path As String
    path = TextBox1.Text
End Sub

Public Sub TextBox2_TextChanged(sender As Object, e As EventArgs)

End Sub

End Class

我希望程序从指定文件夹中的文本文件中获取文件名，然后在列表框中列出它们。但是列表框在另一个GUI上

当我按下按钮时，它会打开另一个GUI，并将文件名输出到第二个GUI上的listBox

我得到“那不是一个有效的目录。”出于某种原因，即使它是有效的

---

它在另一个列表框中没有显示任何内容。我不知道我做错了什么。

您的问题可能是试图直接访问第二个表单。要从第一个窗体访问它，请声明一个新的第二个窗体“Dim Sec as new second”。现在，您可以从第一个窗体访问第二个窗体中的所有控件。然后使用“Sec.Show（）”显示表单

---

第二种形式的列表框的数据源是什么？

只要返回错误，列表中就不会添加任何内容。复制并粘贴文本框1中的值。也许您缺少了一些东西。另外，您的catch块应该显示ex.Message，以便您确切地知道引发异常的原因。它甚至可能会引导您找到答案。Textbox1的文本是用户选择的路径。好的，所以我从

Second.List.Items.Add（fileInFolder.Name）

中删除了“Second.”，现在我没有收到“Invalid directory”错误，并且信息显示在第一个GUI listboxm上，而不是第二个。否则我将如何让它显示在第二个窗体上？好的，我刚刚将此代码添加到第二个窗体加载方法：

List.Items.Add（Form1.List）

但是，我得到：

Items集合在设置DataSource属性时无法修改。

我正在尝试几乎所有操作。DataSource设置为none。