Visual Basic MsgBox Example

MsgBox.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show("can okay")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show("can okay", "İsim Başlığı")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MessageBox.Show("can okay", "İsim Başlığı", MessageBoxButtons.YesNo)
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MessageBox.Show("Devam etmek istiyor musunuz?", "Uyarı", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        MessageBox.Show("Can Okay", "İsim", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign, True)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Select Case (MessageBox.Show("Yeni dosya oluşturulsun mu?", "Dosya Oluşturucu", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question))
            Case DialogResult.Yes
                Label1.Text = "Yes'e bastınız"
            Case DialogResult.No
                Label1.Text = "No'ya bastınız"
            Case DialogResult.Cancel
                Label1.Text = "Cancel'a bastınız"
        End Select
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class