방법: Visual Basic에서 이벤트 처리
업데이트: 2007년 11월
다음 예제에서는 CauseEvent 메서드를 호출할 때 이벤트를 발생시키는 클래스를 정의합니다. 이 이벤트는 EventHandler라는 이벤트 처리기 프로시저에 의해 처리됩니다.
예제
설명
이 예제를 실행하려면 Visual Basic Windows 응용 프로그램 프로젝트의 폼 클래스에 다음 코드를 추가한 다음 정수 인수를 사용하여 TestEvents 프로시저를 호출합니다.
코드
Public Class Class1
' Declare an event for this class.
Public Event Event1(ByVal EventNumber As Integer)
' Define a method that raises an event.
Sub CauseEvent(ByVal EventNumber As Integer)
RaiseEvent Event1(EventNumber)
End Sub
End Class
Protected Sub TestEvents(ByVal EventNumber As Integer)
Dim Obj As New Class1
AddHandler Obj.Event1, AddressOf Me.EventHandler
' Cause the object to raise an event.
Obj.CauseEvent(EventNumber)
End Sub
Sub EventHandler(ByVal EventNumber As Integer)
MsgBox("Received event number " & EventNumber.ToString)
End Sub