次のようなイベントがある場合:
' <summary>
' Event raised when conversion progress changes.
' </summary>
Public Shared Event PercentDone(ByVal percent As Integer)
Sub(...)
CoreConverter.StartInfo.FileName = CoreConverter_Location
CoreConverter.Start()
While Not CoreConverter.HasExited
If ChrW(CoreConverter.StandardOutput.Read) = "*" Then
progress += 1
RaiseEvent PercentDone(progress)
End If
End While
CoreConverter.Close()
RaiseEvent Exited()
End sub
他のクラス (たとえば、デフォルトの Form1 クラス) でイベント ハンドラーを次のように記述する方法:
Sub Converter_Progress(Progress As Integer) Handles CoreConverter.PercentDone
' Some code...
End Sub
...代わりに、次のようにハンドラーを手動で追加します。
AddHandler CoreConverter.PercentDone, AddressOf Converter_Progress