在一个窗体下实现另一个窗体内容的更新

form1
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Messagebox.show("This is Form1")
end sub

Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAdd.Click

'打开窗体2
Dim frm As New Form2
frm.ShowDialog()

'窗体2处理好之后,返回本窗体,然后重载本窗体
If frm.DialogResult = Windows.Forms.DialogResult.OK Then
form1_Load(Nothing, Nothing)
End If

end sub



form2
Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAdd.Click

Me.DialogResult = DialogResult.OK
Me.Close()

End Sub