| MsgBox 버튼 종류를 지정하는 상수와 값 | ||
| 상 수 | 값 | 아이콘 |
| VbOKOnly | 0 | 확인 |
| VbOKCancel | 1 | 확인,취소 |
| VbAboartRetryIgnore | 2 | 중단,재시도,무시 |
| VbYesNoCancel | 3 | 예,아니오,취소 |
| VbYesNo | 4 | 예,아니오 |
| VbRetryCancel | 5 | 재시도,취소 |
| MsgBox 아이콘 종류를 지정하는 상수와 값 | ||
| 상 수 | 값 | 아이콘 |
| Vbcritical | 16 | 중대 메시지 |
| VbQuestion | 32 | 질의 경고 |
| VbExclamation | 48 | 메시지 경고 |
| VbInformation | 64 | 메시지 정보 |
| MsgBox 기본 버튼을 지정하는 상수와 값 | ||
| 상 수 | 값 | 아이콘 |
| VbDefaultButton1 | 0 | 첫번째 |
| VbDefaultButton2 | 256 | 두번째 |
| VbDefaultButton3 | 512 | 세번째 |
| VbDefaultButton4 | 768 | 네번째 |
| MsgBox 를 통해 반환된 버튼을 확인할 때의 상수와 값 | ||
| 상 수 | 값 | 아이콘 |
| vbOK | 1 | 확인 |
| vbCancel | 2 | 치소 |
| vbAboart | 3 | 중단 |
| VbRetry | 4 | 재시도 |
| vbIgnore | 5 | 무시 |
| vbYes | 6 | 예 |
| vbNo | 7 | 아니오 |
MsgBox "확인", 64
MsgBox "확인-취소", 17
MsgBox "예-아니오", 36
Sub MsgBox_Return()
Dim 반환값 As Integer
반환값 = MsgBox("작업을 계속 진행 할까요?", _
vbYesNoCancel + vbQuestion + vbDefaultButton2, "작업확인")
Select Case 반환값
Case Is = vbYes
MsgBox "[예] 단추를 눌렀습니다."
Case Is = vbNo
MsgBox "[아니오] 단추를 눌렀습니다"
Case Is = vbCancel
MsgBox "[취소] 단추를 눌렀습니다"
End Select
End Sub
Sub IF_단순()
Dim IntinPut As Integer
IntinPut = MsgBox("작업을 계속 할까요?", vbOKCancel, "진행")
If IntinPut = vbCancel Then Exit Sub
End Sub
