Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MsgBoxButtonSetting
public Shared Sub Main
Dim Areturn As String
Areturn = MsgBox("Message", vbOKCancel + vbDefaultButton1 + vbQuestion, "Title")
'vbOKOnly + vbInformation + vbDefaultButton1
'vbOKOnly + vbExclamation + vbDefaultButton1
'vbOKOnly + vbDefaultButton1 + vbCritical
Select Case Areturn
Case vbOK
Console.WriteLine("vbOK")
Case vbCancel
Console.WriteLine("vbCancel")
Case vbAbort
Console.WriteLine("vbAbort")
Case vbRetry
Console.WriteLine("vbRetry")
Case vbIgnore
Console.WriteLine("vbIgnore")
Case Else
Console.WriteLine("Else")
End Select
End Sub
End class
|
