첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.
728x90
반응형
728x170
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
728x90
반응형
그리드형(광고전용)

'VB' 카테고리의 다른 글

[VB] 비프음 연주하기  (0) 2015.05.16
[VB] CHR 함수 사용하기  (0) 2015.05.16
[VB] JOIN 함수 사용하기  (0) 2015.05.16
[VB] 제곱 값 구하기  (0) 2015.05.16
[VB] 팩토리얼 구하기  (0) 2015.05.16
[VB] DO WHILE ~ EXIT DO ~ LOOP문 사용하기  (0) 2015.05.16
[VB] WHILE ~ WEND문 사용하기  (0) 2015.05.16
[VB] MOD 함수를 사용해 나머지 구하기  (0) 2015.05.16
[VB] 배열 사용하기  (0) 2015.05.16
[VB] 공백 문자열 추가하기  (0) 2015.05.16
Posted by icodebroker
TAG ,

댓글을 달아 주세요