VB.Net by API/System.Windows.Forms/MessageBoxButtons
MessageBoxButtons.AbortRetryIgnore
<source lang="vbnet"> Imports System.Windows.Forms public class MessageBoxWithMessageAndTile
public Shared Sub Main MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning) End Sub
End class
</source>
MessageBoxButtons.OKCancel
<source lang="vbnet"> Imports System.Windows.Forms public class MessageBoxOKCancelInformation
public Shared Sub Main Dim answer As DialogResult answer = MessageBox.Show("A","B", MessageBoxButtons.OKCancel,MessageBoxIcon.Information) End Sub
End class
</source>
MessageBoxButtons.RetryCancel
<source lang="vbnet"> Imports System.Windows.Forms Public Class Test
Public Shared Sub Main Dim drResult As DialogResult drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel) If drResult = DialogResult.Retry Then Console.WriteLine("Retry") Else Console.WriteLine("Cancel") End If Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore) Case DialogResult.Abort Console.WriteLine("abort") Case DialogResult.Retry Console.WriteLine("retry") Case DialogResult.Cancel Console.WriteLine("cancel") Case Else Console.WriteLine("Else") End Select End Sub
End Class
</source>