VB.NET：如何从newUserForm调用mainForm的populateUsers方法

这个场景我做WinForms开发时经常碰到，给你分享几个靠谱的方案，按推荐程度排序：

方案一：使用事件（最推荐，解耦度高） #

这种方式能让两个窗体的依赖降到最低，newUserForm只需要在用户添加成功时“发个通知”，主窗体自己处理刷新逻辑，非常贴合面向对象的设计思路。

具体步骤： #

1. 在newUserForm中定义事件
   在newUserForm的类代码内部添加事件声明：

   Public Event UserAdded()
   

2. 保存成功后触发事件
   在newUserForm的保存按钮点击事件里，完成数据库保存操作后触发事件，再隐藏窗体：

   Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
       ' 这里执行保存用户到数据库的逻辑，确保保存成功
       If SaveUserToDatabase() Then ' 假设你有判断保存成功的逻辑
           RaiseEvent UserAdded() ' 触发用户已添加的通知事件
           Me.Hide()
       End If
   End Sub
   

3. 主窗体订阅事件并处理刷新
   在主窗体打开newUserForm的按钮点击事件里，给newUserForm的事件绑定处理方法：

   Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
       Dim addUserForm As New newUserForm()
       ' 绑定事件：当newUserForm触发UserAdded时，调用我们的刷新方法
       AddHandler addUserForm.UserAdded, AddressOf RefreshUserList
       addUserForm.Show(Me) ' 用Show保持主窗体可操作，符合你的需求
   End Sub
   
   ' 专门的刷新方法，内部调用你的populateUsers
   Private Sub RefreshUserList()
       populateUsers()
   End Sub
   

方案二：修改populateUsers的访问修饰符（简单但耦合度高） #

如果你的项目比较简单，不想折腾事件，可以直接调整主窗体方法的访问权限，让newUserForm能直接调用：

具体步骤： #

1. 修改主窗体方法的访问权限
   把mainForm里的方法从Private改成Friend（同一个程序集内可访问）或者Public：

   Friend Sub populateUsers() ' 或者 Public，根据你的实际需求选择
       ' 原来的填充列表逻辑保持不变
   End Sub
   

2. 在newUserForm中调用刷新
   保存成功后，找到正在运行的mainForm实例并调用方法：

   Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
       ' 执行保存用户到数据库的逻辑...
       ' 找到主窗体实例并触发刷新
       Dim mainFormInstance As mainForm = DirectCast(Application.OpenForms("mainForm"), mainForm)
       mainFormInstance.populateUsers()
       Me.Hide()
   End Sub
   

   ⚠️ 注意：这种方式耦合度很高，如果以后主窗体的类名或实例名称变动，代码会直接报错，而且newUserForm必须依赖主窗体的存在，不利于后期维护。

方案三：通过构造函数传递委托（灵活但稍复杂） #

和事件思路类似，你可以在newUserForm的构造函数里接收一个委托，保存成功后调用这个委托来触发刷新：

具体步骤： #

1. 在newUserForm中定义委托并修改构造函数

   Public Delegate Sub RefreshUserDelegate()
   
   Private _refreshDelegate As RefreshUserDelegate
   
   Public Sub New(refreshCallback As RefreshUserDelegate)
       InitializeComponent()
       _refreshDelegate = refreshCallback
   End Sub
   

2. 保存成功后调用委托

   Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
       ' 执行保存用户到数据库的逻辑...
       _refreshDelegate.Invoke() ' 调用主窗体的刷新方法
       Me.Hide()
   End Sub
   

3. 主窗体打开newUserForm时传递委托

   Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
       Dim addUserForm As New newUserForm(AddressOf populateUsers)
       addUserForm.Show(Me)
   End Sub
   

   这种方式也能实现解耦，但事件在WinForms开发中更常用，可读性也更好。

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