VB.NET의 List (Of T) 이벤트 발생시키기

Question

큰 VB6 프로젝트를 VB.NET 프로젝트로 포팅했습니다. 올바르게 컴파일되지만, 대부분의 이벤트 핸들러를 주석 처리해야했습니다. 주위에는 winform 객체에 대한 배열 컬렉션이 없으므로 컬렉션 배열에있는 다양한 객체를 List 객체에 배치합니다.

예를 들어 VB6에서는 버튼 배열을 사용할 수 있습니다.

분명히 내 코드에서 내가

Dim WithEvents cmdButtons As New List(Of Button) 

있어 (및로드 이벤트에서, 목록이 전파), 당신은 컨테이너에 이벤트를 발생 수 없습니다. 컨테이너의 내용 (다른 이름을 갖음)에서 이벤트를 발생시키는 방법이 있습니까?

버튼 생성 코드에는 이벤트 이름이 있지만 처리기가 코드의 핸들 부분이 없으므로 처리기가 인터셉트하지 않는다는 점을 이해했습니다 (주석 처리됨).

Answer 1

잘 모르겠지만 컨테이너의 일부 버튼에 이벤트 처리기를 추가하고 목록에서 해당 버튼을 참조 할 수있게하려면

과 같은 작업을 수행 할 수 있습니다.

Public Class Form1 

    Dim myButtons As List(Of Button) 

    Private Sub AddButtonsToList(targetContainer As Control) 
     myButtons = New List(Of Button) 

     For Each c In targetContainer.Controls 
      If TypeOf c Is Button Then 
       Dim bn = DirectCast(c, Button) 
       AddHandler bn.Click, AddressOf SomeButton_Click 
       myButtons.Add(bn) 
      End If 
     Next 
    End Sub 

    Private Sub SomeButton_Click(sender As Object, e As EventArgs) 
     Dim bn = DirectCast(sender, Button) 
     MsgBox("You clicked " & bn.Name) 
    End Sub 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     ' GroupBox1 has some Buttons in it 
     AddButtonsToList(GroupBox1) 
    End Sub 

End Class