728x90
반응형
728x170
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 Function728x90
반응형
그리드형(광고전용)
'VB' 카테고리의 다른 글
| [VB] 명령 구하기 (0) | 2015.05.15 |
|---|---|
| [VB] SELECT SQL 실행하기 (0) | 2015.05.15 |
| [VB] 레코드셋 구하기 (0) | 2015.05.15 |
| [VB] MDB 연결 구하기 (0) | 2015.05.15 |
| [VB] 애플리케이션 경로 구하기 (0) | 2015.05.15 |
| [VB] 속성 사용하기 (0) | 2015.05.15 |
| [VB] FOR ~ TO ~ STEP ~ EXIT FOR ~ NEXT문 사용하기 (0) | 2015.05.15 |
| [VB] 키보드 & 마우스 잠그기 (0) | 2015.05.15 |
| [VB] IF ~ THEN ~ ELSEIF ~ THEN ~ ELSE ~ END IF문 사용하기 (0) | 2015.05.15 |
| [VB] 주석 사용하기 (0) | 2015.05.15 |
댓글을 달아 주세요