Imports System.IO
Imports System.Text.Encoding
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
public class CustomMessageBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private components As System.ComponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnShow As System.Windows.Forms.Button
Friend WithEvents txtMsg As System.Windows.Forms.TextBox
Friend WithEvents txtCaption As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents grpDefaultButton As System.Windows.Forms.GroupBox
Friend WithEvents DefaultButton3 As System.Windows.Forms.RadioButton
Friend WithEvents DefaultButton2 As System.Windows.Forms.RadioButton
Friend WithEvents DefaultButton1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Button6 As System.Windows.Forms.RadioButton
Friend WithEvents Button5 As System.Windows.Forms.RadioButton
Friend WithEvents Button4 As System.Windows.Forms.RadioButton
Friend WithEvents Button3 As System.Windows.Forms.RadioButton
Friend WithEvents Button2 As System.Windows.Forms.RadioButton
Friend WithEvents Button1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtResult As System.Windows.Forms.TextBox
Friend WithEvents lblResult As System.Windows.Forms.Label
Friend WithEvents Icon8 As System.Windows.Forms.RadioButton
Friend WithEvents Icon7 As System.Windows.Forms.RadioButton
Friend WithEvents Icon6 As System.Windows.Forms.RadioButton
Friend WithEvents Icon5 As System.Windows.Forms.RadioButton
Friend WithEvents Icon4 As System.Windows.Forms.RadioButton
Friend WithEvents Icon3 As System.Windows.Forms.RadioButton
Friend WithEvents Icon2 As System.Windows.Forms.RadioButton
Friend WithEvents Icon1 As System.Windows.Forms.RadioButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.txtMsg = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnShow = New System.Windows.Forms.Button()
Me.txtCaption = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.grpDefaultButton = New System.Windows.Forms.GroupBox()
Me.DefaultButton3 = New System.Windows.Forms.RadioButton()
Me.DefaultButton2 = New System.Windows.Forms.RadioButton()
Me.DefaultButton1 = New System.Windows.Forms.RadioButton()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button6 = New System.Windows.Forms.RadioButton()
Me.Button5 = New System.Windows.Forms.RadioButton()
Me.Button4 = New System.Windows.Forms.RadioButton()
Me.Button3 = New System.Windows.Forms.RadioButton()
Me.Button2 = New System.Windows.Forms.RadioButton()
Me.Button1 = New System.Windows.Forms.RadioButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Icon8 = New System.Windows.Forms.RadioButton()
Me.Icon7 = New System.Windows.Forms.RadioButton()
Me.Icon6 = New System.Windows.Forms.RadioButton()
Me.Icon5 = New System.Windows.Forms.RadioButton()
Me.Icon4 = New System.Windows.Forms.RadioButton()
Me.Icon3 = New System.Windows.Forms.RadioButton()
Me.Icon2 = New System.Windows.Forms.RadioButton()
Me.Icon1 = New System.Windows.Forms.RadioButton()
Me.txtResult = New System.Windows.Forms.TextBox()
Me.lblResult = New System.Windows.Forms.Label()
Me.grpDefaultButton.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'txtMsg
'
Me.txtMsg.Location = New System.Drawing.Point(68, 8)
Me.txtMsg.Name = "txtMsg"
Me.txtMsg.Size = New System.Drawing.Size(200, 22)
Me.txtMsg.TabIndex = 0
Me.txtMsg.Text = ""
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 16)
Me.Label1.TabIndex = 13
Me.Label1.Text = "Message:"
'
'btnShow
'
Me.btnShow.Location = New System.Drawing.Point(280, 8)
Me.btnShow.Name = "btnShow"
Me.btnShow.Size = New System.Drawing.Size(76, 24)
Me.btnShow.TabIndex = 5
Me.btnShow.Text = "Show"
'
'txtCaption
'
Me.txtCaption.Location = New System.Drawing.Point(68, 36)
Me.txtCaption.Name = "txtCaption"
Me.txtCaption.Size = New System.Drawing.Size(200, 22)
Me.txtCaption.TabIndex = 1
Me.txtCaption.Text = ""
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(12, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(60, 16)
Me.Label2.TabIndex = 16
Me.Label2.Text = "Caption:"
'
'grpDefaultButton
'
Me.grpDefaultButton.Controls.AddRange(New System.Windows.Forms.Control() {Me.DefaultButton3, Me.DefaultButton2, Me.DefaultButton1})
Me.grpDefaultButton.Location = New System.Drawing.Point(208, 72)
Me.grpDefaultButton.Name = "grpDefaultButton"
Me.grpDefaultButton.Size = New System.Drawing.Size(144, 124)
Me.grpDefaultButton.TabIndex = 4
Me.grpDefaultButton.TabStop = False
Me.grpDefaultButton.Text = "Default Button"
'
'DefaultButton3
'
Me.DefaultButton3.Location = New System.Drawing.Point(12, 68)
Me.DefaultButton3.Name = "DefaultButton3"
Me.DefaultButton3.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton3.TabIndex = 2
Me.DefaultButton3.Text = "DefaultButton3"
'
'DefaultButton2
'
Me.DefaultButton2.Location = New System.Drawing.Point(12, 44)
Me.DefaultButton2.Name = "DefaultButton2"
Me.DefaultButton2.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton2.TabIndex = 1
Me.DefaultButton2.Text = "DefaultButton2"
'
'DefaultButton1
'
Me.DefaultButton1.Checked = True
Me.DefaultButton1.Location = New System.Drawing.Point(12, 20)
Me.DefaultButton1.Name = "DefaultButton1"
Me.DefaultButton1.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton1.TabIndex = 0
Me.DefaultButton1.TabStop = True
Me.DefaultButton1.Text = "DefaultButton1"
'
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button6, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1})
Me.GroupBox2.Location = New System.Drawing.Point(12, 200)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(188, 160)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Buttons"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(12, 133)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(100, 19)
Me.Button6.TabIndex = 5
Me.Button6.Text = "YesNoCancel"
'
'Button5
'
Me.Button5.Checked = True
Me.Button5.Location = New System.Drawing.Point(12, 110)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(100, 20)
Me.Button5.TabIndex = 4
Me.Button5.TabStop = True
Me.Button5.Text = "YesNo"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(12, 86)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(100, 21)
Me.Button4.TabIndex = 3
Me.Button4.Text = "RetryCancel"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(12, 65)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(100, 18)
Me.Button3.TabIndex = 2
Me.Button3.Text = "OKCancel"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(12, 43)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(100, 19)
Me.Button2.TabIndex = 1
Me.Button2.Text = "OK"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 20)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 20)
Me.Button1.TabIndex = 0
Me.Button1.Text = "AbortRetryIgnore"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Icon8, Me.Icon7, Me.Icon6, Me.Icon5, Me.Icon4, Me.Icon3, Me.Icon2, Me.Icon1})
Me.GroupBox1.Location = New System.Drawing.Point(12, 72)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(188, 124)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Icon"
'
'Icon8
'
Me.Icon8.Location = New System.Drawing.Point(100, 92)
Me.Icon8.Name = "Icon8"
Me.Icon8.Size = New System.Drawing.Size(64, 20)
Me.Icon8.TabIndex = 7
Me.Icon8.Text = "Warning"
'
'Icon7
'
Me.Icon7.Location = New System.Drawing.Point(12, 92)
Me.Icon7.Name = "Icon7"
Me.Icon7.Size = New System.Drawing.Size(84, 20)
Me.Icon7.TabIndex = 6
Me.Icon7.Text = "Stop"
'
'Icon6
'
Me.Icon6.Location = New System.Drawing.Point(100, 68)
Me.Icon6.Name = "Icon6"
Me.Icon6.Size = New System.Drawing.Size(64, 20)
Me.Icon6.TabIndex = 5
Me.Icon6.Text = "Question"
'
'Icon5
'
Me.Icon5.Checked = True
Me.Icon5.Location = New System.Drawing.Point(12, 68)
Me.Icon5.Name = "Icon5"
Me.Icon5.Size = New System.Drawing.Size(84, 20)
Me.Icon5.TabIndex = 4
Me.Icon5.TabStop = True
Me.Icon5.Text = "Information"
'
'Icon4
'
Me.Icon4.Location = New System.Drawing.Point(100, 44)
Me.Icon4.Name = "Icon4"
Me.Icon4.Size = New System.Drawing.Size(64, 20)
Me.Icon4.TabIndex = 3
Me.Icon4.Text = "Hand"
'
'Icon3
'
Me.Icon3.Location = New System.Drawing.Point(12, 44)
Me.Icon3.Name = "Icon3"
Me.Icon3.Size = New System.Drawing.Size(84, 20)
Me.Icon3.TabIndex = 2
Me.Icon3.Text = "Exclamation"
'
'Icon2
'
Me.Icon2.Location = New System.Drawing.Point(100, 20)
Me.Icon2.Name = "Icon2"
Me.Icon2.Size = New System.Drawing.Size(64, 20)
Me.Icon2.TabIndex = 1
Me.Icon2.Text = "Error"
'
'Icon1
'
Me.Icon1.Location = New System.Drawing.Point(12, 20)
Me.Icon1.Name = "Icon1"
Me.Icon1.Size = New System.Drawing.Size(84, 20)
Me.Icon1.TabIndex = 0
Me.Icon1.Text = "Asterisk"
'
'txtResult
'
Me.txtResult.Enabled = False
Me.txtResult.Location = New System.Drawing.Point(212, 232)
Me.txtResult.Name = "txtResult"
Me.txtResult.Size = New System.Drawing.Size(136, 22)
Me.txtResult.TabIndex = 18
Me.txtResult.Text = ""
'
'lblResult
'
Me.lblResult.Location = New System.Drawing.Point(212, 208)
Me.lblResult.Name = "lblResult"
Me.lblResult.Size = New System.Drawing.Size(56, 20)
Me.lblResult.TabIndex = 17
Me.lblResult.Text = "Result"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
Me.ClientSize = New System.Drawing.Size(368, 369)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grpDefaultButton, Me.GroupBox2, Me.GroupBox1, Me.txtResult, Me.lblResult, Me.txtCaption, Me.Label2, Me.btnShow, Me.txtMsg, Me.Label1})
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "MessageBox Application"
Me.grpDefaultButton.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Private iIcon As Integer
Private iButton As Integer
Private iDefaultButton As Integer
Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
Dim iResult As Integer
iResult = MessageBox.Show(Me,txtMsg.Text, txtCaption.Text, iButton, iIcon, iDefaultButton)
Select Case iResult
Case DialogResult.Abort
txtResult.Text = "DialogResult.Abort"
Case DialogResult.Retry
txtResult.Text = "DialogResult.Retry"
Case DialogResult.Ignore
txtResult.Text = "DialogResult.Ignore"
Case DialogResult.OK
txtResult.Text = "DialogResult.OK"
Case DialogResult.Cancel
txtResult.Text = "DialogResult.Cancel"
Case DialogResult.Yes
txtResult.Text = "DialogResult.Yes"
Case DialogResult.No
txtResult.Text = "DialogResult.No"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Icon1.Click, AddressOf Icon_Click
AddHandler Icon2.Click, AddressOf Icon_Click
AddHandler Icon3.Click, AddressOf Icon_Click
AddHandler Icon4.Click, AddressOf Icon_Click
AddHandler Icon5.Click, AddressOf Icon_Click
AddHandler Icon6.Click, AddressOf Icon_Click
AddHandler Icon7.Click, AddressOf Icon_Click
AddHandler Icon8.Click, AddressOf Icon_Click
AddHandler Button1.Click, AddressOf Button_Click
AddHandler Button2.Click, AddressOf Button_Click
AddHandler Button3.Click, AddressOf Button_Click
AddHandler Button4.Click, AddressOf Button_Click
AddHandler Button5.Click, AddressOf Button_Click
AddHandler Button6.Click, AddressOf Button_Click
AddHandler DefaultButton1.Click, AddressOf DefaultButton_Click
AddHandler DefaultButton2.Click, AddressOf DefaultButton_Click
AddHandler DefaultButton3.Click, AddressOf DefaultButton_Click
iIcon = MessageBoxIcon.Information
iButton = MessageBoxButtons.YesNo
iDefaultButton = MessageBoxDefaultButton.Button1
End Sub
Public Sub Icon_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "Icon1"
iIcon = MessageBoxIcon.Asterisk
Case "Icon2"
iIcon = MessageBoxIcon.Error
Case "Icon3"
iIcon = MessageBoxIcon.Exclamation
Case "Icon4"
iIcon = MessageBoxIcon.Hand
Case "Icon5"
iIcon = MessageBoxIcon.Information
Case "Icon6"
iIcon = MessageBoxIcon.Question
Case "Icon7"
iIcon = MessageBoxIcon.Stop
Case "Icon8"
iIcon = MessageBoxIcon.Warning
End Select
End Sub
Public Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "Button1"
iButton = MessageBoxButtons.AbortRetryIgnore
Case "Button2"
iButton = MessageBoxButtons.OK
Case "Button3"
iButton = MessageBoxButtons.OKCancel
Case "Button4"
iButton = MessageBoxButtons.RetryCancel
Case "Button5"
iButton = MessageBoxButtons.YesNo
Case "Button6"
iButton = MessageBoxButtons.YesNoCancel
End Select
End Sub
Public Sub DefaultButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "DefaultButton1"
iDefaultButton = MessageBoxDefaultButton.Button1
Case "DefaultButton2"
iDefaultButton = MessageBoxDefaultButton.Button2
Case "DefaultButton3"
iDefaultButton = MessageBoxDefaultButton.Button3
End Select
End Sub
End Class
|
