这是一个简单的窗体切换的小程序
这是form1的代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Me.Hide()
' Dim yourForm As New Form2
' yourForm.Show()
Form2.Show()
Form2.Label1.Font = New Font("宋体", 16)
Form2.Label1.BackColor = Color.Aqua
Form2.Label1.Text = "这是窗体2"
End Sub
这是form2的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
' Dim myForm As New Form1() Form1.Show()
End Sub
这是form1的代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Me.Hide()
' Dim yourForm As New Form2
' yourForm.Show()
Form2.Show()
Form2.Label1.Font = New Font("宋体", 16)
Form2.Label1.BackColor = Color.Aqua
Form2.Label1.Text = "这是窗体2"
End Sub
这是form2的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
' Dim myForm As New Form1() Form1.Show()
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货