Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Return value from MessageBox

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MessageBoxReturnValue    public Shared Sub Main         Dim intReturnValue As Integer         intReturnValue = MessageBox.Show("This is also a message box!", "Message Box", _             MessageBoxButtons.OKCancel, MessageBoxIcon.Information, _             MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)         If (intReturnValue = DialogResult.OK) Then             Console.WriteLine("You clicked the OK button.")         End If    End Sub End class