기존 컨트롤의 새 인스턴스 만들기? ...

Question

가 나는 동적으로 기존 형태의 새로운 인스턴스를 만들려면, 간단히 말해서 나는이 작업을 수행 할 수 있다는 것을 알고

Dim NewForm As New ExistingForm 

... 그리고 새로운 인스턴스를 (좀 더 복잡한 그것은 생각보다) ExistingForm의 모든 컨트롤 중 NewForm에서 사용할 수 있습니다.

그러나 기존 컨트롤의 새 인스턴스를 별도의 기존 양식에 만들려면 어떻게해야합니까?

더 구체적으로 말해서, 내가 2 가지 형태 - FormA과 FormB을 가지고 있다고 가정 해 보겠습니다. 내부 FormB은 기존 패널입니다 (우리는 이것을 ExistingPanel이라고합니다). 그리고 안으로 ExistingPanel 몇 가지 버튼, 텍스트 상자, 등, 정확히 내가 원하는 방법으로 배열되어 있습니다.

OK ... FormA의 버튼 클릭 이벤트 안에,이 작업을하고 싶습니다. (분명히 작동하지 않지만 분명히 달성해야 할 작업에 대한 좋은 아이디어를 제공해야합니다.) ...

Dim NewExistingPanel As New FormB.ExistingPanel 

그리고는 나는 동적으로 개별적으로 각각을 조작 할 수 있습니다 (그래서) ExistingPanel에서 새로운 인스턴스를 개별 컨트롤을 모두 포함 NewExistingPanel를 원한다.

기본적으로 내 프로그램은 런타임에 여러 개의 NewExistingPanel을 만들어야합니다. 그리고 내가 만든 후에는 각각 하나 (그리고 모든 자식 컨트롤)에 개별적으로 액세스해야합니다.

어떻게하면됩니까? 나는 지금까지 몇 시간 동안이 실험을 해왔다. 그래서 분해해서 실제 전문가에게 물어 보았다. :)

Answer 1

사용자 컨트롤을 사용하면 태그 값을 키로하고 컨트롤 이름을 값으로 사용하여 사전을 사용할 수 있습니다. 그런 다음 IndexOfKey 메서드를 사용하여 직접 컨트롤에 액세스 할 수 있습니다.

Dim NewForm2 As New Form2 
    Dim ControlIndex As New Dictionary(Of String, String) 
    For I = 0 To 2 
     Dim NewPanel As New WindowsControlLibrary2.MyCustomPanel 
     NewPanel.Name = "Panel-" + I.ToString 
     NewPanel.Location = New Point(0 + (NewPanel.Size.Width * I), 0) 
     NewPanel.Tag = "MyTagValue" + I.ToString 
     ControlIndex.Add(NewPanel.Tag, NewPanel.Name) 
     NewForm2.Controls.Add(NewPanel) 
     NewForm2.Update() 
    Next 
    NewForm2.Show() 
    Dim CurrentPanel As WindowsControlLibrary2.MyCustomPanel =NewForm2.Controls(NewForm2.Controls.IndexOfKey(ControlIndex("MyTagValue1"))) 

Answer 2

다음과 같은 방법으로 하위 컨트롤을 만들 수있다. 그 (것)들을 원한다, 그 후에 그것의 새로운 경우를 창조하십시오. Add New> User Control을 선택하여 만든 다음 도구 상자의 맨 위에있는 디자이너로 드래그하거나 다른 컨트롤처럼 코드로 인스턴스화 할 준비가되어 있어야합니다. 다음과 같이

이

Private somePanels As New Dictionary(Of String, YourUserControl) 

그럼 당신은 단지 그들을 추가 할 수 있습니다 :

내 의견에 확장하려면

Dim c As New YourUserControl() 
… 
Me.Controls.Add(c) 
somePanels.Add("SomeTag", c) ' Instead of using Tag; if your tags are numbers, use a List instead of a Dictionary 

을 그리고 그들을 액세스 : 새를 만들 때

Dim c = somePanels("SomeTag") 

Answer 3

텍스트 상자가있는 버튼이있는 패널과 같은 컨트롤을 추가하려면 ..프로젝트에서

1. - 추가> UserControl을 -이 부분에서>
   당신은 당신이 원하는대로 텍스트 상자와 버튼 패널을
   이름을 으로 "myPanel"와 로 저장할 수 있습니다 "myPanel.vb"-> 또는

2. 양식에

   및 단추 1 당신이 당신의 Button1_Click 이벤트에 추가 할 수 있습니다이라는 버튼을 원하는 :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
   
        Dim mypanel1 As New MyPanel 
   
        mypanel1.Location = New Point(0, 0) 
   
        Controls.Add(mypanel1) 
        mypanel1.TextBox1.Text = "Hi, Im new" 
   
   End Sub 
   

그리고 당신은 런타임에 패널을 얻을 것이다 ...

그리고 당신은이 "안녕, 나는 새로운 해요"채우기 textbox1.text 얻을 것이다 ...