如何在vb.net

Question

我需要动态地克隆面板控制，以相同的形式是生成现有面板的同一面板下的副本，我的形式

我已经写了一些代码，会做我想要的工作但它不会根据我的需要工作，但它会破坏主面板并生成副本，但我不想销毁第一块，我想保留所有面板...

这是我在按钮“+”点击事件时调用的函数

Friend Function AddNewPanel() As System.Windows.Forms.Panel 
     Dim Pnl As New System.Windows.Forms.Panel 
     Pnl = MediPanel 'This is the main panel that I want to copy 
     Pnl.Top = 500 
     'Pnl.Left = 100   
     ParentPanel.Controls.Add(Pnl) 'ParentPanel in which I want to generate a copy 
     Return Pnl 
    End Function 

This is what I exactly want但是This is actually happened

所以，我要生成面板的副本，我按下“+”按钮，也更早板不应该被销毁..

Answer 1

动态生成一个新的控制。当您的表单加载时，为您的按钮设置一个标签，指示原始面板的底部位置。

button1.tag = Medipanel.Bottom 

当你点击+按钮

Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click 

    Dim new_panel As New Panel 
    With new_panel 
    .Location = New Point(Medipanel.Left, Cint(button1.tag) + 5) 
    .Size = New Size (Medipanel.Width, Medipanel.Height) 
    .... 
    End With 

    Dim some_label = New Label 
    With some_label 
    .AutoSize = True 
    .Name = "label" 
    .Location = New Point(0, 0) ''' Position in the new panel 
    .Text = "Some Text" 
    End With 
    new_panel.Controls.Add(some_label) 

    Dim some_button as New Button 
    With some_button 
     .Tag = "some value" '''' A way to Identify the button if clicked 
     .... 
     .... 
     AddHandler some_button.click, AddressOf some_button_click 
     '''' The Sub that determines what happens when that button is clicked. 
    End With 

    .... 
    ....  

    ParentPanel.Controls.Add(new_panel) 

    button1.tag = new_panel.bottom '''' Set the bottom position of the last panel added. 

End Sub 

当点击新建按钮：

Private Sub some_button_click(sender As Object, e As EventArgs) 

    Dim sending_button As Button = DirectCast(sender, Button) 
    Dim ref As String = DirectCast(sending_button.Tag, String) 

    ''''Perform your stuff here 

End Sub 

这只会增加一个新的控制和不破坏旧的。