ハンドルのイベント

Question

は、関数内でイベントハンドラを取得する方法はありますか？ Tickイベント（t.Tick）を処理する必要があります。ここに私の意味は次のとおりです：

Public Shared Function SetTime(ByVal x As Label) 
    Dim t As New Timer 
    t.Enabled = True 
    t.Interval = 100 
    t.Start() 
    'I need the handler here 
    x.Text = Date.Now.ToShortTimeString() 
    'I need the handler to end here 
    Return True 
End Function 

助けていただければ幸いです。

Answer 1

Tickイベントハンドルが別のサブにする必要があります。タイマーを作成するときに、Tickイベントを処理するSubのアドレスを指定できます。クラスレベルの変数にLabelへの参照を格納する必要があります。

Private Shared timeLabel As Label, myTimer As Timer 

Public Shared Function SetTime(ByVal x As Label) As Boolean 
    timeLabel = x 

    myTimer = New Timer 
    myTimer.Enabled = True 
    myTimer.Interval = 100 
    AddHandler myTimer.Tick, AddressOf myTimer_Tick 
    myTimer.Start() 
    Return True 
End Function 

Private Shared Sub myTimer_Tick(sender As Object, e As EventArgs) 
    timeLabel.Text = Date.Now.ToShortTimeString() 
End Sub