当我通过VB.NET代码插入组合框时，如何让它有事件？

Question

嗨，我还是相当新的VB.NET ... 我有以下代码的窗体有一个按钮（Button1）。 当我按下此按钮时，它会添加一些带有某些值的组合框（每次按下按钮时都会添加一个新组合框）。 如何设置和事件，以便当组合框更改时，文本框将出现在它的右侧？ 我基本上是根据每个组合框中选择的内容来查看具有不同的行为。

Public Class frmEditor 
    Private Const rowHeight = 25 
    Dim datarows() As Action 
    Dim currentrow As Integer 
    Dim starttop As Integer 
    Private Sub frmEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     currentrow = 1 
     starttop = 20 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     CreateRow() 
     currentrow = currentrow + 1 
     starttop = starttop + rowHeight 
    End Sub 

    Private Sub CreateRow() 
     Dim newrow As Action = New Action() 
     ReDim Preserve datarows(currentrow) 
     datarows(currentrow) = newrow 
     datarows(currentrow).newAction(15, starttop, currentrow) 
    End Sub 

End Class 

Public Class Action 
    Private cbo As New ComboBox() 

    Public Sub newAction(ByVal xleft As Integer, ByVal ytop As Integer, ByVal nrow As Integer) 
     cbo.Top = ytop 
     cbo.Left = xleft 
     cbo.Visible = True 
     cbo.Items.Add("Test1") 
     cbo.Items.Add("Test2") 
     frmEditor.Controls.Add(cbo) 

    End Sub 
End Class 

Answer 1

您需要添加一个处理

AddHandler cbo.newAction, AddressOf newAction 

编辑：

下面是一些我建立了一个例子。我希望能够在每个页面的底部添加一行链接，而无需将HTML添加到每个页面。所以我建立了一个控制来为我做。部分原因是为了增加一个LoginStatus控件

 Protected Overrides Sub CreateChildControls() 
      Dim lb As New LoginStatus 
      With lb 
       .ID = "LoginStatus1" 
       AddHandler .LoggingOut, AddressOf LoginStatus1_LoggingOut 
      End With 
      Me.Controls.Add(lb) 
     End Sub 

然后我LoggingOut处理器确实有点神奇，以不打破我的URL重写。

 Private Sub LoginStatus1_LoggingOut(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) 
     'sign out the logged in user 
     End Sub