将 Form1.Panel1 替换为 Form2.Panel1
Replace Form1.Panel1 with Form2.Panel1
我正在尝试找到一种方法,用在 Form2
中创建的面板替换一个面板表单 Form1
,同时替换为具有相同的大小和相同的位置。
示例:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.BringToFront()
End Sub
它想成为类似 tabcontrol 的东西,但我更喜欢使用 label,因为 tabcontrol 做我想做的事情非常有限。
您是要键入 Form2 吗?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.BringToFront()
End Sub
您可能也不需要 BringToFront
语句。
嗯,您在 Form1
上看不到“Form2
中的控件”(在本例中为 Panel1
),因为Form2
中的控件属于 Form2
。
因此,如果您想在 Form1
上看到 Form2.Panel1
,则需要将 Form2.Panel1
添加到 Form1.Controls
。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Controls.Add(Form2.Panel1)
Form2.Panel1.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.Size = Me.Panel1.Size 'to be the same size
End Sub
我正在尝试找到一种方法,用在 Form2
中创建的面板替换一个面板表单 Form1
,同时替换为具有相同的大小和相同的位置。
示例:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.BringToFront()
End Sub
它想成为类似 tabcontrol 的东西,但我更喜欢使用 label,因为 tabcontrol 做我想做的事情非常有限。
您是要键入 Form2 吗?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.BringToFront()
End Sub
您可能也不需要 BringToFront
语句。
嗯,您在 Form1
上看不到“Form2
中的控件”(在本例中为 Panel1
),因为Form2
中的控件属于 Form2
。
因此,如果您想在 Form1
上看到 Form2.Panel1
,则需要将 Form2.Panel1
添加到 Form1.Controls
。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Controls.Add(Form2.Panel1)
Form2.Panel1.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Panel1.Hide()
Form2.Panel1.Show()
Form2.Panel1.Location = Me.Panel1.Location
Form2.Panel1.Size = Me.Panel1.Size 'to be the same size
End Sub