爲什麼我的活動沒有開火？

Question

我正在做一些轉換編碼，使用找到的.net轉換庫@http://code.google.com/p/dot-net-transitions/。我正在嘗試添加一個事件來觸發已完成的轉換。在我的子，我有以下語句：

Private Sub btnLogin_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click 

If md5Password = rtnPassHash Then 

       AddHandler Me.TransitionCompletedEvent, AddressOf theHandlerFunction 

       Dim tr_empID = New Transition(New TransitionType_Linear(500)) 
       tr_empid.add(txtEmployeeID, "BackColor", Color.LightGreen) 

       Dim tr_passw = New Transition(New TransitionType_Linear(500)) 
       tr_passw.add(txtPassword, "BackColor", Color.LightGreen) 

       tr_empID.run() 
       tr_passw.run() 
       AddHandler Me.TransitionCompletedEvent, AddressOf theHandlerFunction 

       Dim tr_empID = New Transition(New TransitionType_Linear(500)) 
       tr_empid.add(txtEmployeeID, "BackColor", Color.LightGreen) 

       Dim tr_passw = New Transition(New TransitionType_Linear(500)) 
       tr_passw.add(txtPassword, "BackColor", Color.LightGreen) 

       tr_empID.run() 
       tr_passw.run() 

end if 

end sub 

該子我之外：

Public Event TransitionCompletedEvent As EventHandler(Of Transition.Args) 

Private Sub theHandlerFunction(ByVal sender As Object, ByVal args As Transition.Args) Handles Me.TransitionCompletedEvent 
    MsgBox("Event Fired") 

End Sub 

但是，事件沒有在過渡完成後射擊。爲什麼會這樣？

Answer 1

基本設計：

Public Class Transition 
    Public Event TransitionCompleted(args As Transition.Args) 
    Public Sub SomeSub() 
    RaiseEvent TransitionCompleted(New Transition.Args With {set some properties}) 
    End Sub 
    ... 
End Class 

Public Class Form1 
Private transition1 As New Transition 
Private Sub Login_Click(...) ... 
    ... 
    Addhandler transition1.TransitionCompleted, AddressOf TransitionCompleted 
End Sub 

Private Sub TransitionCompleted(args As Transition.Args) ' no handles clause 
    MessageBox.Show("event fired") 
End Sub 
End Class