Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Create MessageBox dynamically

Imports System.Windows.Forms public class MessageBoxCreateDy    public Shared Sub Main         Application.Run(New frmMessageBox)    End Sub End class Public Class frmMessageBox    Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code "    Public Sub New()       MyBase.New()       'This call is required by the Windows Form Designer.       InitializeComponent()       'Add any initialization after the InitializeComponent() call    End Sub    'Form overrides dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)       If disposing Then          If Not (components Is Nothing) Then             components.Dispose()          End If       End If       MyBase.Dispose(disposing)    End Sub    Friend WithEvents grpPromptandTitle As System.Windows.Forms.GroupBox    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox    Friend WithEvents btnShow As System.Windows.Forms.Button    Friend WithEvents Panel1 As System.Windows.Forms.Panel    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter    Friend WithEvents Panel2 As System.Windows.Forms.Panel    Friend WithEvents Label1 As System.Windows.Forms.Label    Friend WithEvents txtText As System.Windows.Forms.TextBox    Friend WithEvents txtCaption As System.Windows.Forms.TextBox    Friend WithEvents Label2 As System.Windows.Forms.Label    Friend WithEvents rdoOKOnly As System.Windows.Forms.RadioButton    Friend WithEvents Label3 As System.Windows.Forms.Label    Friend WithEvents rdoAbRetry As System.Windows.Forms.RadioButton    Friend WithEvents rdoError As System.Windows.Forms.RadioButton    Friend WithEvents rdoExclamation As System.Windows.Forms.RadioButton    Friend WithEvents rdoRetryCancel As System.Windows.Forms.RadioButton    Friend WithEvents rdoInformation As System.Windows.Forms.RadioButton    Friend WithEvents rdoYesNo As System.Windows.Forms.RadioButton    Friend WithEvents rdoYesNoCancel As System.Windows.Forms.RadioButton    Friend WithEvents rdoOKCancel As System.Windows.Forms.RadioButton    Friend WithEvents Label4 As System.Windows.Forms.Label    Friend WithEvents rdoNoIcon As System.Windows.Forms.RadioButton    Friend WithEvents rdoQuestion As System.Windows.Forms.RadioButton    'Required by the Windows Form Designer    Private components As System.ComponentModel.IContainer    'NOTE: The following procedure is required by the Windows Form Designer    'It can be modified using the Windows Form Designer.      'Do not modify it using the code editor.    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()       Me.grpPromptandTitle = New System.Windows.Forms.GroupBox()       Me.GroupBox1 = New System.Windows.Forms.GroupBox()       Me.btnShow = New System.Windows.Forms.Button()       Me.Panel1 = New System.Windows.Forms.Panel()       Me.Splitter1 = New System.Windows.Forms.Splitter()       Me.Panel2 = New System.Windows.Forms.Panel()       Me.Label1 = New System.Windows.Forms.Label()       Me.txtText = New System.Windows.Forms.TextBox()       Me.txtCaption = New System.Windows.Forms.TextBox()       Me.Label2 = New System.Windows.Forms.Label()       Me.rdoOKOnly = New System.Windows.Forms.RadioButton()       Me.Label3 = New System.Windows.Forms.Label()       Me.rdoAbRetry = New System.Windows.Forms.RadioButton()       Me.rdoError = New System.Windows.Forms.RadioButton()       Me.rdoExclamation = New System.Windows.Forms.RadioButton()       Me.rdoRetryCancel = New System.Windows.Forms.RadioButton()       Me.rdoInformation = New System.Windows.Forms.RadioButton()       Me.rdoYesNo = New System.Windows.Forms.RadioButton()       Me.rdoYesNoCancel = New System.Windows.Forms.RadioButton()       Me.rdoOKCancel = New System.Windows.Forms.RadioButton()       Me.Label4 = New System.Windows.Forms.Label()       Me.rdoNoIcon = New System.Windows.Forms.RadioButton()       Me.rdoQuestion = New System.Windows.Forms.RadioButton()       Me.grpPromptandTitle.SuspendLayout()       Me.GroupBox1.SuspendLayout()       Me.Panel1.SuspendLayout()       Me.Panel2.SuspendLayout()       Me.SuspendLayout()       '       'grpPromptandTitle       '       Me.grpPromptandTitle.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtCaption, Me.Label2, Me.txtText, Me.Label1})       Me.grpPromptandTitle.Dock = System.Windows.Forms.DockStyle.Top       Me.grpPromptandTitle.Name = "grpPromptandTitle"       Me.grpPromptandTitle.Size = New System.Drawing.Size(456, 112)       Me.grpPromptandTitle.TabIndex = 0       Me.grpPromptandTitle.TabStop = False       Me.grpPromptandTitle.Text = "Enter your text and caption:"       '       'GroupBox1       '       Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnShow})       Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom       Me.GroupBox1.Location = New System.Drawing.Point(0, 350)       Me.GroupBox1.Name = "GroupBox1"       Me.GroupBox1.Size = New System.Drawing.Size(456, 48)       Me.GroupBox1.TabIndex = 3       Me.GroupBox1.TabStop = False       '       'btnShow       '       Me.btnShow.Location = New System.Drawing.Point(328, 16)       Me.btnShow.Name = "btnShow"       Me.btnShow.Size = New System.Drawing.Size(96, 24)       Me.btnShow.TabIndex = 0       Me.btnShow.Text = "SHOW"       '       'Panel1       '       Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.rdoRetryCancel, Me.rdoYesNo, Me.rdoYesNoCancel, Me.rdoAbRetry, Me.rdoOKCancel, Me.rdoOKOnly})       Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left       Me.Panel1.Location = New System.Drawing.Point(0, 112)       Me.Panel1.Name = "Panel1"       Me.Panel1.Size = New System.Drawing.Size(200, 238)       Me.Panel1.TabIndex = 1       '       'Splitter1       '       Me.Splitter1.Location = New System.Drawing.Point(200, 112)       Me.Splitter1.Name = "Splitter1"       Me.Splitter1.Size = New System.Drawing.Size(3, 238)       Me.Splitter1.TabIndex = 3       Me.Splitter1.TabStop = False       '       'Panel2       '       Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label4, Me.rdoExclamation, Me.rdoNoIcon, Me.rdoInformation, Me.rdoQuestion, Me.rdoError})       Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill       Me.Panel2.Location = New System.Drawing.Point(203, 112)       Me.Panel2.Name = "Panel2"       Me.Panel2.Size = New System.Drawing.Size(253, 238)       Me.Panel2.TabIndex = 2       '       'Label1       '       Me.Label1.Location = New System.Drawing.Point(16, 24)       Me.Label1.Name = "Label1"       Me.Label1.Size = New System.Drawing.Size(64, 24)       Me.Label1.TabIndex = 0       Me.Label1.Text = "Text:"       '       'txtText       '       Me.txtText.Location = New System.Drawing.Point(104, 24)       Me.txtText.Name = "txtText"       Me.txtText.Size = New System.Drawing.Size(320, 20)       Me.txtText.TabIndex = 0       Me.txtText.Text = ""       '       'txtCaption       '       Me.txtCaption.Location = New System.Drawing.Point(104, 64)       Me.txtCaption.Name = "txtCaption"       Me.txtCaption.Size = New System.Drawing.Size(320, 20)       Me.txtCaption.TabIndex = 1       Me.txtCaption.Text = ""       '       'Label2       '       Me.Label2.Location = New System.Drawing.Point(16, 64)       Me.Label2.Name = "Label2"       Me.Label2.Size = New System.Drawing.Size(64, 24)       Me.Label2.TabIndex = 0       Me.Label2.Text = "Caption:"       '       'rdoOKOnly       '       Me.rdoOKOnly.Checked = True       Me.rdoOKOnly.Location = New System.Drawing.Point(8, 40)       Me.rdoOKOnly.Name = "rdoOKOnly"       Me.rdoOKOnly.Size = New System.Drawing.Size(160, 24)       Me.rdoOKOnly.TabIndex = 2       Me.rdoOKOnly.TabStop = True       Me.rdoOKOnly.Text = "Ok Only"       '       'Label3       '       Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.Label3.Location = New System.Drawing.Point(24, 8)       Me.Label3.Name = "Label3"       Me.Label3.Size = New System.Drawing.Size(104, 24)       Me.Label3.TabIndex = 0       Me.Label3.Text = "Buttons"       '       'rdoAbRetry       '       Me.rdoAbRetry.Location = New System.Drawing.Point(8, 104)       Me.rdoAbRetry.Name = "rdoAbRetry"       Me.rdoAbRetry.Size = New System.Drawing.Size(160, 24)       Me.rdoAbRetry.TabIndex = 4       Me.rdoAbRetry.Text = "Abort, Retry, Ignore"       '       'rdoError       '       Me.rdoError.Checked = True       Me.rdoError.Location = New System.Drawing.Point(24, 40)       Me.rdoError.Name = "rdoError"       Me.rdoError.Size = New System.Drawing.Size(88, 32)       Me.rdoError.TabIndex = 1       Me.rdoError.TabStop = True       Me.rdoError.Text = "Error"       '       'rdoExclamation       '       Me.rdoExclamation.Location = New System.Drawing.Point(24, 112)       Me.rdoExclamation.Name = "rdoExclamation"       Me.rdoExclamation.Size = New System.Drawing.Size(88, 32)       Me.rdoExclamation.TabIndex = 3       Me.rdoExclamation.Text = "Exclamation"       '       'rdoRetryCancel       '       Me.rdoRetryCancel.Location = New System.Drawing.Point(8, 200)       Me.rdoRetryCancel.Name = "rdoRetryCancel"       Me.rdoRetryCancel.Size = New System.Drawing.Size(160, 24)       Me.rdoRetryCancel.TabIndex = 0       Me.rdoRetryCancel.Text = "Retry and Cancel"       '       'rdoInformation       '       Me.rdoInformation.Location = New System.Drawing.Point(136, 40)       Me.rdoInformation.Name = "rdoInformation"       Me.rdoInformation.Size = New System.Drawing.Size(88, 32)       Me.rdoInformation.TabIndex = 4       Me.rdoInformation.Text = "Information"       '       'rdoYesNo       '       Me.rdoYesNo.Location = New System.Drawing.Point(8, 168)       Me.rdoYesNo.Name = "rdoYesNo"       Me.rdoYesNo.Size = New System.Drawing.Size(160, 24)       Me.rdoYesNo.TabIndex = 6       Me.rdoYesNo.Text = "Yes and No"       '       'rdoYesNoCancel       '       Me.rdoYesNoCancel.Location = New System.Drawing.Point(8, 136)       Me.rdoYesNoCancel.Name = "rdoYesNoCancel"       Me.rdoYesNoCancel.Size = New System.Drawing.Size(160, 24)       Me.rdoYesNoCancel.TabIndex = 5       Me.rdoYesNoCancel.Text = "Yes, No, Cancel"       '       'rdoOKCancel       '       Me.rdoOKCancel.Location = New System.Drawing.Point(8, 72)       Me.rdoOKCancel.Name = "rdoOKCancel"       Me.rdoOKCancel.Size = New System.Drawing.Size(160, 24)       Me.rdoOKCancel.TabIndex = 3       Me.rdoOKCancel.Text = "Ok and  Cancel"       '       'Label4       '       Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.Label4.Location = New System.Drawing.Point(24, 8)       Me.Label4.Name = "Label4"       Me.Label4.Size = New System.Drawing.Size(80, 24)       Me.Label4.TabIndex = 0       Me.Label4.Text = "Icon"       '       'rdoNoIcon       '       Me.rdoNoIcon.Location = New System.Drawing.Point(136, 80)       Me.rdoNoIcon.Name = "rdoNoIcon"       Me.rdoNoIcon.Size = New System.Drawing.Size(88, 32)       Me.rdoNoIcon.TabIndex = 5       Me.rdoNoIcon.Text = "No Icon"       '       'rdoQuestion       '       Me.rdoQuestion.Location = New System.Drawing.Point(24, 80)       Me.rdoQuestion.Name = "rdoQuestion"       Me.rdoQuestion.Size = New System.Drawing.Size(88, 32)       Me.rdoQuestion.TabIndex = 2       Me.rdoQuestion.Text = "Question"       '       'frmMessageBox       '       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)       Me.ClientSize = New System.Drawing.Size(456, 398)       Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.Splitter1, Me.Panel1, Me.GroupBox1, Me.grpPromptandTitle})       Me.Name = "frmMessageBox"       Me.Text = "Do the Message Box thing!"       Me.grpPromptandTitle.ResumeLayout(False)       Me.GroupBox1.ResumeLayout(False)       Me.Panel1.ResumeLayout(False)       Me.Panel2.ResumeLayout(False)       Me.ResumeLayout(False)    End Sub #End Region    Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click       Dim buttonchoice As MessageBoxButtons       Dim iconchoice As MessageBoxIcon       Dim answer As DialogResult       If rdoOKOnly.Checked = True Then          buttonchoice = MessageBoxButtons.OK        ElseIf rdoOKCancel.Checked = True Then          buttonchoice = MessageBoxButtons.OKCancel        ElseIf rdoAbRetry.Checked = True Then          buttonchoice = MessageBoxButtons.AbortRetryIgnore       ElseIf rdoYesNoCancel.Checked = True Then          buttonchoice = MessageBoxButtons.YesNoCancel         ElseIf rdoYesNo.Checked = True Then          buttonchoice = MessageBoxButtons.YesNo         ElseIf rdoRetryCancel.Checked = True Then          buttonchoice = MessageBoxButtons.RetryCancel         Else          MessageBox.Show("Unexpected error in button selection!")       End If       If rdoError.Checked = True Then          iconchoice = MessageBoxIcon.Error          ElseIf rdoQuestion.Checked = True Then          iconchoice = MessageBoxIcon.Question       ElseIf rdoExclamation.Checked = True Then          iconchoice = MessageBoxIcon.Exclamation          ElseIf rdoInformation.Checked = True Then          iconchoice = MessageBoxIcon.Information          ElseIf rdoNoIcon.Checked = True Then          iconchoice = MessageBoxIcon.None       Else          MessageBox.Show("Unexpected error in icon selection!")       End If       answer = MessageBox.Show(txtText.Text, txtCaption.Text, _          buttonchoice, iconchoice)       Dim evaluate As String       If answer = DialogResult.OK Then          evaluate = "You clicked OK!"       ElseIf answer = DialogResult.Cancel Then          evaluate = "You clicked Cancel!"       ElseIf answer = DialogResult.Abort Then          evaluate = "You clicked Abort!"       ElseIf answer = DialogResult.Retry Then          evaluate = "You clicked Retry!"       ElseIf answer = DialogResult.Ignore Then          evaluate = "You clicked Ignore!"       ElseIf answer = DialogResult.Yes Then          evaluate = "You clicked Yes!"       ElseIf answer = DialogResult.No Then          evaluate = "You clicked No!"       Else          evaluate = "Nothing was clicked!"       End If       MessageBox.Show(evaluate, "Message Box Evaluation", _          MessageBoxButtons.OK, MessageBoxIcon.Information)    End Sub End Class