none
在组件中定义的事件引发后怎么不发布呢(急) RRS feed

  • 问题

  • 套用了代码来自MSDN的用 Visual Basic 创作简单的多线程组件中,将一个在组件中定义的事件引发后,执行程事件处理程序。在原来的示例中能够正确执行。可是可是另建一个新项目时就不行了——引发事件却不能执行事件的委托。我的示例代码如下,请高手帮忙看一下,哪里错了。谢谢!!

     

    Public Class Component1 '组件代码
      Public Event handler1(ByVal b As Integer)
      Public Sub test()
        RaiseEvent handler1(2)
      End Sub
    End Class
    
    Public Class Form1 '窗体代码((组件Component1 已添加到窗体,名为Component11))
      Private Delegate Sub rr(ByVal f As Integer)
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cp As New Component1
        cp.test()
      End Sub
      Private Sub Component11_handler1(ByVal b As System.Int32) Handles Component11.handler1
        Me.BeginInvoke(New rr(AddressOf kk), New Object() {b}) 'handler1事件引发后,不能到达这里执行委托
      End Sub
      Private Sub kk()
    
      End Sub
    End Class
    2010年5月4日 17:02

答案