MessageBox 출력후 어떤 버튼을 클릭했는 지 알아보기~~|★|☆

[거꾸로]

'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