16,547
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Dim Fm2 As Form2 = New Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WindowState = FormWindowState.Maximized
Fm2.WindowState = FormWindowState.Maximized
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.WindowState = FormWindowState.Minimized
Fm2.WindowState = FormWindowState.Minimized
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Fm2.Show()
End Sub
End Class
方法二用委托需要在两个窗体模块分开写代码