VB.NET二次加载表单时ComboBox控件未显示内容的问题

我来帮你解决这个子窗体ComboBox空白的问题，分两部分来说：先排查当前写法的问题根源，再教你用隐藏/显示窗体的规范写法彻底解决这个问题。

一、当前ComboBox空白的可能原因 #

你提到第二次调用时ComboBox1.Items.Add已经执行、列表项数量正确，但界面没显示，可能的原因有这几个：

• 加载时机不对：如果ComboBox的加载逻辑只在Form_Load事件里执行，新建Form2实例时，控件初始化顺序可能导致加载代码执行时ComboBox还没完全就绪（虽然概率低，但有可能）。
• 关闭窗体时的误操作：如果在Form2的FormClosing事件里写了ComboBox1.Items.Clear()或者Dispose了数据源，下次新建实例时虽然重新Add，但可能UI没同步。
• UI线程问题：如果加载选项是在非UI线程执行的，即使Items数量正确，也可能无法在界面渲染（不过你首次正常，这个可能性较小，但可以排查下是否用了异步操作却没调用Invoke）。

二、规范的隐藏/显示窗体写法（彻底解决问题） #

关闭再重新创建窗体确实不是最佳实践，因为每次关闭都会Dispose整个窗体控件，很容易出现状态丢失或UI异常。正确的做法是隐藏子窗体而非关闭，同时保留事件绑定，具体步骤如下：

1. 修改Form2的关闭行为，改为隐藏 #

在Form2的代码里，重写FormClosing事件，取消默认关闭动作，改为隐藏窗体：

Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    ' 阻止窗体关闭，改为隐藏
    e.Cancel = True
    Me.Hide()
End Sub

2. 调整Form1中子窗体的实例管理 #

在Form1的窗体级别保留WithEvents声明，确保事件绑定一直有效，打开子窗体时判断实例是否存在/已Disposed：

Public Class Form1
    ' 窗体级别声明，保持WithEvents以绑定子窗体事件
    Friend WithEvents SecondForm As Form2

    ' 打开子窗体的方法（比如绑定到按钮点击事件）
    Private Sub OpenSecondForm_Click(sender As Object, e As EventArgs) Handles OpenSecondFormBtn.Click
        If SecondForm Is Nothing OrElse SecondForm.IsDisposed Then
            ' 首次打开或实例意外销毁时，创建新实例
            SecondForm = New Form2()
            ' 初始化ComboBox选项（调用Form2的加载方法）
            SecondForm.LoadComboBoxOptions()
        End If
        ' 显示子窗体
        SecondForm.Show()
    End Sub
End Class

3. 封装ComboBox的加载逻辑 #

在Form2里把加载选项的代码封装成独立方法，方便首次初始化或按需刷新：

Public Class Form2
    ' 自定义方法：从外部文件加载ComboBox选项
    Public Sub LoadComboBoxOptions()
        ' 先清空现有项，避免重复加载
        ComboBox1.Items.Clear()
        ' 替换成你的外部文件加载逻辑
        For Each optionLine In System.IO.File.ReadAllLines("你的选项文件路径.txt")
            ComboBox1.Items.Add(optionLine)
        Next
    End Sub

    ' （前面的FormClosing代码已写）
End Class

4. 传递选择结果到主窗体（事件绑定） #

因为用了WithEvents，你可以直接在Form1里处理Form2的ComboBox选择事件，或者在Form2里定义自定义事件，让代码更解耦：

方式1：直接处理ComboBox的SelectedIndexChanged事件（简单直接）

在Form1里，因为SecondForm是WithEvents声明的，直接绑定事件：

Private Sub SecondForm_ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SecondForm.ComboBox1.SelectedIndexChanged
    ' 获取选中项，处理主窗体逻辑
    Dim selectedValue As String = SecondForm.ComboBox1.SelectedItem.ToString()
    ' 示例：显示选中结果
    Me.MainLabel.Text = $"子窗体选择：{selectedValue}"
End Sub

方式2：自定义事件（更符合面向对象设计）

在Form2里定义一个自定义事件，专门传递选择结果：

Public Class Form2
    ' 声明自定义事件，用于向主窗体传递选择结果
    Public Event OptionSelected(selectedItem As String)

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem IsNot Nothing Then
            ' 触发事件，传递选中项
            RaiseEvent OptionSelected(ComboBox1.SelectedItem.ToString())
        End If
    End Sub

    ' （其他代码已写）
End Class

然后在Form1里处理这个自定义事件：

Private Sub SecondForm_OptionSelected(selectedItem As String) Handles SecondForm.OptionSelected
    ' 主窗体处理逻辑
    MessageBox.Show($"你选择了：{selectedItem}", "主窗体提示")
End Sub

三、为什么这个写法能解决问题？ #

通过隐藏/显示窗体，子窗体的控件永远不会被Dispose，ComboBox的状态（包括已加载的选项）会一直保留，避免了重新创建实例时可能出现的UI渲染异常。同时WithEvents保证了事件绑定始终有效，不需要重新绑定事件。

如果需要刷新ComboBox的选项，只需在显示子窗体前调用SecondForm.LoadComboBoxOptions()即可。

内容的提问来源于stack exchange，提问作者ChrisR