글 수 65
Sub 메시지박스()
Dim 입력여부 As Integer
입력여부 = MsgBox("입력했습니까? " & Chr(10) & "'아니오'를 선택하시면 ... 합니다. " & Chr(10) & ".......", 35, "메시지박스 타이틀")
If (입력여부 = vbYes) Then
ElseIf (입력여부 = vbNo) Then
ElseIf (입력여부 = vbCancel) Then
End
End If
End Sub
Dim 입력여부 As Integer
입력여부 = MsgBox("입력했습니까? " & Chr(10) & "'아니오'를 선택하시면 ... 합니다. " & Chr(10) & ".......", 35, "메시지박스 타이틀")
If (입력여부 = vbYes) Then
ElseIf (입력여부 = vbNo) Then
ElseIf (입력여부 = vbCancel) Then
End
End If
End Sub
MsgBox 상수 | |||
다음 상수들은 코드의 어느 부분에서나 실제값 대신 사용할 수 있습니다. | |||
MsgBox 인수 | |||
상수 | 값 | 설명 | |
vbOKOnly | 확인단추 전용(기본값) | ||
vbOKCancel | 1 | 확인단추와 취소단추 | |
vbAbortRetryIgnore | 2 | 중지, 다시 시도, 무시단추 | |
vbYesNoCancel | 3 | 예, 아니오, 취소단추 | |
vbYesNo | 4 | 예단추와 아니오단추 | |
vbRetryCancel | 5 | 다시 시도단추와 취소단추 | |
vbCritical | 16 | 치명적 오류 메시지 | |
vbQuestion | 32 | 경고 질문 | |
vbExclamation | 48 | 경고 메시지 | |
vbInformation | 64 | 정보 메시지 | |
vbDefaultButton1 | 첫째 단추가 기본값입니다(기본값). | ||
vbDefaultButton2 | 256 | 둘째 단추가 기본값입니다. | |
vbDefaultButton3 | 512 | 셋째 단추가 기본값입니다. | |
vbDefaultButton4 | 768 | 넷째 단추가 기본값입니다. | |
vbApplicationModal | 응용 프로그램 모달 메시지 상자(기본값) | ||
vbSystemModal | 4096 | 시스템 모달 메시지 상자 | |
vbMsgBoxHelpButton | 16384 | 메시지 상자에 도움말단추를 추가합니다. | |
vbMsgBoxSetForeground | 65536 | 메시지 상자를 전경 창으로 지정합니다. | |
vbMsgBoxRight | 524288 | 텍스트가 오른쪽 맞춤되었습니다. | |
vbMsgBoxRtlReading | 1048576 | 히브리어와 아랍어 시스템의 경우 텍스트의 읽기 방향이 오른쪽에서 왼쪽으로 나타나도록 지정합니다. | |
MsgBox 반환값 | |||
상수 | 값 | 설명 | |
vbOK | 1 | 확인단추를 눌렀습니다. | |
vbCancel | 2 | 취소단추를 눌렀습니다. | |
vbAbort | 3 | 중지단추를 눌렀습니다. | |
vbRetry | 4 | 다시 시도단추를 눌렀습니다. | |
vbIgnore | 5 | 무시단추를 눌렀습니다. | |
vbYes | 6 | 예단추를 눌렀습니다. | |
vbNo | 7 | 아니오단추를 눌렀습니다. |