첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 함수 프로시저 사용하기

------------------------------------------------------------------------------------------------------------------------

Public Function DisplayMessage(tbTarget, strMessage As String) As Boolean

 

    DisplayMessage = False

 

    On Error GoTo errorLabel

    

    If TypeOf tbTarget Is TextBox Then

 

        tbTarget.Text = strMessage

 

    End If

    

    DisplayMessage = True

    

    Exit Function

 

errorLabel:

 

    Err.Raise vbError + 1001, Err.Description

 

End Function

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG ,

댓글을 달아 주세요