Mega Code Archive

 

Categories / VB.Net / GUI

 

MessageBox

Imports System Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.IO Imports System.Drawing.Printing Public Class MainClass     Shared Sub Main()         Dim intResult As DialogResult         'Get the results of the button clicked         intResult = MessageBox.Show("The A drive is not ready." & _             ControlChars.CrLf & ControlChars.CrLf & _             "Please insert a diskette into the drive.", "Device Not Ready", _             MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error, _             MessageBoxDefaultButton.Button2)         'Process the results of the button clicked         Select Case intResult             Case DialogResult.Abort                 'Do abort processing here...                 System.Console.WriteLine("Abort Clicked")             Case DialogResult.Retry                 'Do retry processing here...                 System.Console.WriteLine("Retry Clicked")             Case DialogResult.Ignore                 'Do ignore processing here...                 System.Console.WriteLine("Ignore Clicked")         End Select     End Sub End Class