vb.net - 如何在 form1.control 之上添加一个 form2 控件

Question

我有两种形式。带有richtextbox 的Form1 和带有列表框的form2。

我想把列表框放在richtextbox 的顶部，对接它。我想做这样的事：

• form2.Controls.Remove(ListBox1)
• form2.hide
• form1.richtextbox1.controls.add(form2.listbox1)
• form1.richtextbox1.hide 'I can't hide, also listbox will hide...
• form2.listbox1.location= richtextbox1或者
• form2.listbox1.bounds=richtextbox1.bounds

一切正常，直到将 form2.listbox1.location 设置为如果richtextbox1 被隐藏，列表框也会被隐藏。此外，将列表框的位置和/或边界设置为与richtextbox 相同并不能完全覆盖richtextbox。我也尝试对两者使用相同的尺寸。

GIF 示例

标签： vb.netcontrols

Answer 1

这对我有用：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim LB As ListBox = Form2.ListBox1
    If IsNothing(LB.Tab)
        LB.Tag = LB.Size ' <-- store it for later use
    End If
    Me.Controls.Add(LB)
    LB.Bounds = RichTextBox1.Bounds
    RichTextBox1.Hide()
End Sub

稍后，当您将 ListBox 移回时，检索存储在 Tag 中的大小：

If Not IsNothing(LB.Tab)
    LB.Size = LB.Tag
End If

输出：