[VB] 서브 프로시저 사용하기

■ 서브 프로시저를 사용하는 방법을 보여준다.

▶ 예제 코드 (VB)


Public Sub DisplayMessage(tbTarget, strMessage As String)

    On Error GoTo errorLabel

    If TypeOf tbTarget Is TextBox Then

        tbTarget.Text = strMessage

    End If

    Exit Sub

errorLabel:

    Err.Raise vbError + 1001, Err.Description

End Sub

Public Sub DisplayMessage(tbTarget, strMessage As String)

On Error GoTo errorLabel

If TypeOf tbTarget Is TextBox Then

tbTarget.Text = strMessage

End If

Exit Sub

errorLabel:

Err.Raise vbError + 1001, Err.Description

End Sub