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
在一个窗体下实现另一个窗体内容的更新
最新推荐文章于 2023-07-06 13:33:33 发布