글 수 65
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별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 | 아니오단추를 눌렀습니다. | |
