'MessageBox 출력후
'어떤 버튼을 클릭했는 지 파악하여 ....
'각기 다른 일 하기
'-----------------------------------------------------
Public Class Form7
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
'MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Asterisk)
' DialogResult 열거형(대화 상자의 반환 값을 나타낼 식별자를 지정)
' 네임스페이스: System.Windows.Forms
Dim Result As DialogResult
Result = MessageBox.Show("어떻게 하시겠습니까?", "알림", _
MessageBoxButtons.AbortRetryIgnore, _
MessageBoxIcon.Asterisk)
'MessageBox의 어떤 버튼을 클릭했는지 파악하여 각기 다른 일 하기
If Result = DialogResult.Abort Then 'If 문으로 해결(1)
Me.Text = "중단.."
ElseIf Result = DialogResult.Retry Then
Me.Text = "다시 시도.."
ElseIf Result = DialogResult.Ignore Then
Me.Text = "무시.."
End If
'If Result = DialogResult.Abort Then 'If 문으로 해결(2)
' Me.Text = "중단.."
'ElseIf Result = DialogResult.Retry Then
' Me.Text = "다시 시도.."
'Else
' Me.Text = "무시.."
'End If
'Select Case Result 'Select 문으로 해결
' Case DialogResult.Abort
' Me.Text = "중단.."
' Case DialogResult.Retry
' Me.Text = "다시 시도.."
' Case Else
' Me.Text = "무시.."
'End Select
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)
End Sub
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.RetryCancel, MessageBoxIcon.Hand)
End Sub
Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
End Sub
Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
MessageBox.Show("어떻게 하시겠습니까?", "알림", MessageBoxButtons.YesNoCancel, MessageBoxIcon.None)
End Sub
End Class