拆分2表格并使其生效

时间:2014-05-13 01:57:47

标签: vb.net

我是一个“不太好的程序员”,所以请保持答案可以理解。

所以,我有两种形式:

在displayA上的表单1(表单1中的25%是form1本身,75%是表单2用于实时预览),我使用panel1表示“75%form2”。

displayB

上的表格2

这是一个例子:

http://i.stack.imgur.com/5ireh.jpg

当我单击form1上的button1时,它成功显示form2(在DisplayB上)。这是一个脚本:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Form2.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + New Point(100, 100)

    Form2.Show()

End Sub

这是一个用于显示75%form2(在DisplayA上)的脚本:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim frm As New Form2()
    frm.TopLevel = False
    Panel1.Controls.Add(frm)
    frm.Show()
End Sub

现在的情况是:

  1. 通过单击form1上的button1,我成功在DisplayB上显示form2。

  2. 我成功在form1(DisplayA)上制作了75%的form2,但它坚持“New form2”

  3. [例如:如果我在form2(DisplayB)上更新label1.text,则不会更改75%form2(DisplayA)。]

    所以,我需要帮助:

    1. 将form2(在DisplayB上)与form2一起使用(在DisplayA上)。

    2. 如果我的剧本有错,请告诉我。

    3. 对不起英语非常糟糕,非常感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

尝试使用SplitContainer控件而不是您自己的Panel。

SplitContainer控件提供两个内部面板。为了隐藏其中一个面板,您只需折叠它:

SplitContainer1.Panel1Collapsed = True

要将表单添加到面板,它将是这样的:

Dim frm As New Form2()
frm.TopLevel = False
frm.Visible = True
SplitContainer1.Panel2.Controls.Add(frm)