Hola, hoy les mostraré cómo crear un cuadro de mensaje personalizado con Windows Forms, CSharp y Visual Basic .NET (VB). Básicamente este cuadro de mensaje personalizado hace todo lo que hace un cuadro de mensaje estándar, por ejemplo, establecer el texto, un titulo, botones, icono, botón predeterminado y devuelve el valor seleccionado por el usuario en el cuadro de diálogo (DialogResult).
Diseño de la IU del Cuadro de Mensaje
Código de la IU del Cuadro de Mensaje
public partial class FormMessageBox : Form
{
//Fields
private Color primaryColor = Color.CornflowerBlue;
private int borderSize = 2;
//Properties
public Color PrimaryColor
{
get { return primaryColor; }
set
{
primaryColor = value;
this.BackColor = primaryColor;//Form Border Color
this.panelTitleBar.BackColor = PrimaryColor;//Title Bar Back Color
}
}
//Constructors
public FormMessageBox(string text)
{
InitializeComponent();
InitializeItems();
this.PrimaryColor = primaryColor;
this.labelMessage.Text = text;
this.labelCaption.Text = "";
SetFormSize();
SetButtons(MessageBoxButtons.OK, MessageBoxDefaultButton.Button1);//Set Default Buttons
}
public FormMessageBox(string text, string caption)
{
InitializeComponent();
InitializeItems();
this.PrimaryColor = primaryColor;
this.labelMessage.Text = text;
this.labelCaption.Text = caption;
SetFormSize();
SetButtons(MessageBoxButtons.OK, MessageBoxDefaultButton.Button1);//Set Default Buttons
}
public FormMessageBox(string text, string caption, MessageBoxButtons buttons)
{
InitializeComponent();
InitializeItems();
this.PrimaryColor = primaryColor;
this.labelMessage.Text = text;
this.labelCaption.Text = caption;
SetFormSize();
SetButtons(buttons, MessageBoxDefaultButton.Button1);//Set [Default Button 1]
}
public FormMessageBox(string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon)
{
InitializeComponent();
InitializeItems();
this.PrimaryColor = primaryColor;
this.labelMessage.Text = text;
this.labelCaption.Text = caption;
SetFormSize();
SetButtons(buttons, MessageBoxDefaultButton.Button1);//Set [Default Button 1]
SetIcon(icon);
}
public FormMessageBox(string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon, MessageBoxDefaultButton defaultButton)
{
InitializeComponent();
InitializeItems();
this.PrimaryColor = primaryColor;
this.labelMessage.Text = text;
this.labelCaption.Text = caption;
SetFormSize();
SetButtons(buttons, defaultButton);
SetIcon(icon);
}
//-> Private Methods
private void InitializeItems()
{
this.FormBorderStyle = FormBorderStyle.None;
this.Padding = new Padding(borderSize);//Set border size
this.labelMessage.MaximumSize = new Size(550, 0);
this.btnClose.DialogResult = DialogResult.Cancel;
this.button1.DialogResult = DialogResult.OK;
this.button1.Visible = false;
this.button2.Visible = false;
this.button3.Visible = false;
}
private void SetFormSize()
{
int widht = this.labelMessage.Width + this.pictureBoxIcon.Width + this.panelBody.Padding.Left;
int height = this.panelTitleBar.Height + this.labelMessage.Height + this.panelButtons.Height + this.panelBody.Padding.Top;
this.Size = new Size(widht, height);
}
private void SetButtons(MessageBoxButtons buttons, MessageBoxDefaultButton defaultButton)
{
int xCenter = (this.panelButtons.Width - button1.Width) / 2;
int yCenter = (this.panelButtons.Height - button1.Height) / 2;
switch (buttons)
{
case MessageBoxButtons.OK:
//OK Button
button1.Visible = true;
button1.Location = new Point(xCenter, yCenter);
button1.Text = "Ok";
button1.DialogResult = DialogResult.OK;//Set DialogResult
//Set Default Button
SetDefaultButton(defaultButton);
break;
case MessageBoxButtons.OKCancel:
//OK Button
button1.Visible = true;
button1.Location = new Point(xCenter - (button1.Width / 2) - 5, yCenter);
button1.Text = "Ok";
button1.DialogResult = DialogResult.OK;//Set DialogResult
//Cancel Button
button2.Visible = true;
button2.Location = new Point(xCenter + (button2.Width / 2) + 5, yCenter);
button2.Text = "Cancel";
button2.DialogResult = DialogResult.Cancel;//Set DialogResult
button2.BackColor = Color.DimGray;
//Set Default Button
if (defaultButton != MessageBoxDefaultButton.Button3)//There are only 2 buttons, so the Default Button cannot be Button3
SetDefaultButton(defaultButton);
else SetDefaultButton(MessageBoxDefaultButton.Button1);
break;
case MessageBoxButtons.RetryCancel:
//Retry Button
button1.Visible = true;
button1.Location = new Point(xCenter - (button1.Width / 2) - 5, yCenter);
button1.Text = "Retry";
button1.DialogResult = DialogResult.Retry;//Set DialogResult
//Cancel Button
button2.Visible = true;
button2.Location = new Point(xCenter + (button2.Width / 2) + 5, yCenter);
button2.Text = "Cancel";
button2.DialogResult = DialogResult.Cancel;//Set DialogResult
button2.BackColor = Color.DimGray;
//Set Default Button
if (defaultButton != MessageBoxDefaultButton.Button3)//There are only 2 buttons, so the Default Button cannot be Button3
SetDefaultButton(defaultButton);
else SetDefaultButton(MessageBoxDefaultButton.Button1);
break;
case MessageBoxButtons.YesNo:
//Yes Button
button1.Visible = true;
button1.Location = new Point(xCenter - (button1.Width / 2) - 5, yCenter);
button1.Text = "Yes";
button1.DialogResult = DialogResult.Yes;//Set DialogResult
//No Button
button2.Visible = true;
button2.Location = new Point(xCenter + (button2.Width / 2) + 5, yCenter);
button2.Text = "No";
button2.DialogResult = DialogResult.No;//Set DialogResult
button2.BackColor = Color.IndianRed;
//Set Default Button
if (defaultButton != MessageBoxDefaultButton.Button3)//There are only 2 buttons, so the Default Button cannot be Button3
SetDefaultButton(defaultButton);
else SetDefaultButton(MessageBoxDefaultButton.Button1);
break;
case MessageBoxButtons.YesNoCancel:
//Yes Button
button1.Visible = true;
button1.Location = new Point(xCenter - button1.Width - 5, yCenter);
button1.Text = "Yes";
button1.DialogResult = DialogResult.Yes;//Set DialogResult
//No Button
button2.Visible = true;
button2.Location = new Point(xCenter, yCenter);
button2.Text = "No";
button2.DialogResult = DialogResult.No;//Set DialogResult
button2.BackColor = Color.IndianRed;
//Cancel Button
button3.Visible = true;
button3.Location = new Point(xCenter + button2.Width + 5, yCenter);
button3.Text = "Cancel";
button3.DialogResult = DialogResult.Cancel;//Set DialogResult
button3.BackColor = Color.DimGray;
//Set Default Button
SetDefaultButton(defaultButton);
break;
case MessageBoxButtons.AbortRetryIgnore:
//Abort Button
button1.Visible = true;
button1.Location = new Point(xCenter - button1.Width - 5, yCenter);
button1.Text = "Abort";
button1.DialogResult = DialogResult.Abort;//Set DialogResult
button1.BackColor = Color.Goldenrod;
//Retry Button
button2.Visible = true;
button2.Location = new Point(xCenter, yCenter);
button2.Text = "Retry";
button2.DialogResult = DialogResult.Retry;//Set DialogResult
//Ignore Button
button3.Visible = true;
button3.Location = new Point(xCenter + button2.Width + 5, yCenter);
button3.Text = "Ignore";
button3.DialogResult = DialogResult.Ignore;//Set DialogResult
button3.BackColor = Color.IndianRed;
//Set Default Button
SetDefaultButton(defaultButton);
break;
}
}
private void SetDefaultButton(MessageBoxDefaultButton defaultButton)
{
switch (defaultButton)
{
case MessageBoxDefaultButton.Button1://Focus button 1
button1.Select();
button1.ForeColor = Color.White;
button1.Font = new Font(button1.Font, FontStyle.Underline);
break;
case MessageBoxDefaultButton.Button2://Focus button 2
button2.Select();
button2.ForeColor = Color.White;
button2.Font = new Font(button2.Font, FontStyle.Underline);
break;
case MessageBoxDefaultButton.Button3://Focus button 3
button3.Select();
button3.ForeColor = Color.White;
button3.Font = new Font(button3.Font, FontStyle.Underline);
break;
}
}
private void SetIcon(MessageBoxIcon icon)
{
switch (icon)
{
case MessageBoxIcon.Error: //Error
this.pictureBoxIcon.Image = Properties.Resources.error;
PrimaryColor = Color.FromArgb(224, 79, 95);
this.btnClose.FlatAppearance.MouseOverBackColor = Color.Crimson;
break;
case MessageBoxIcon.Information: //Information
this.pictureBoxIcon.Image = Properties.Resources.information;
PrimaryColor = Color.FromArgb(38, 191, 166);
break;
case MessageBoxIcon.Question://Question
this.pictureBoxIcon.Image = Properties.Resources.question;
PrimaryColor = Color.FromArgb(10, 119, 232);
break;
case MessageBoxIcon.Exclamation://Exclamation
this.pictureBoxIcon.Image = Properties.Resources.exclamation;
PrimaryColor = Color.FromArgb(255, 140, 0);
break;
case MessageBoxIcon.None: //None
this.pictureBoxIcon.Image = Properties.Resources.chat;
PrimaryColor = Color.CornflowerBlue;
break;
}
}
//-> Events Methods
private void btnClose_Click(object sender, EventArgs e)
{
this.Close();
}
#region -> Drag Form
[DllImport("user32.DLL", EntryPoint = "SendMessage")]
private extern static void SendMessage(System.IntPtr hWnd, int wMsg, int wParam, int lParam);
[DllImport("user32.DLL", EntryPoint = "ReleaseCapture")]
private extern static void ReleaseCapture();
private void panelTitleBar_MouseDown(object sender, MouseEventArgs e)
{
ReleaseCapture();
SendMessage(this.Handle, 0x112, 0xf012, 0);
}
#endregion
}Imports System.Runtime.InteropServices
Public Class FormMessageBox
'Fields
Private _primaryColor As Color = Color.CornflowerBlue
Private _borderSize As Integer = 2
'Properties
Public Property PrimaryColor As Color
Get
Return _primaryColor
End Get
Set(value As Color)
_primaryColor = value
Me.BackColor = PrimaryColor 'Form Border Color
Me.panelTitleBar.BackColor = PrimaryColor 'Title Bar Back Color
End Set
End Property
'Constructors
Public Sub New(text As String)
InitializeComponent()
InitializeItems()
Me.PrimaryColor = _primaryColor
Me.labelMessage.Text = text
Me.labelCaption.Text = ""
SetFormSize()
SetButtons(MessageBoxButtons.OK, MessageBoxDefaultButton.Button1) 'Set Default Buttons
End Sub
Public Sub New(text As String, caption As String)
InitializeComponent()
InitializeItems()
Me.PrimaryColor = _primaryColor
Me.labelMessage.Text = text
Me.labelCaption.Text = caption
SetFormSize()
SetButtons(MessageBoxButtons.OK, MessageBoxDefaultButton.Button1) 'Set Default Buttons
End Sub
Public Sub New(text As String, caption As String, buttons As MessageBoxButtons)
InitializeComponent()
InitializeItems()
Me.PrimaryColor = _primaryColor
Me.labelMessage.Text = text
Me.labelCaption.Text = caption
SetFormSize()
SetButtons(buttons, MessageBoxDefaultButton.Button1) 'Set [Default Button 1]
End Sub
Public Sub New(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon)
InitializeComponent()
InitializeItems()
Me.PrimaryColor = _primaryColor
Me.labelMessage.Text = text
Me.labelCaption.Text = caption
SetFormSize()
SetButtons(buttons, MessageBoxDefaultButton.Button1) 'Set [Default Button 1]
SetIcon(icon)
End Sub
Public Sub New(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButton As MessageBoxDefaultButton)
InitializeComponent()
InitializeItems()
Me.PrimaryColor = _primaryColor
Me.labelMessage.Text = text
Me.labelCaption.Text = caption
SetFormSize()
SetButtons(buttons, defaultButton)
SetIcon(icon)
End Sub
'-> Private Methods
Private Sub InitializeItems()
Me.FormBorderStyle = FormBorderStyle.None
Me.Padding = New Padding(_borderSize) 'Set border size
Me.labelMessage.MaximumSize = New Size(550, 0)
Me.btnClose.DialogResult = DialogResult.Cancel
Me.button1.DialogResult = DialogResult.OK
Me.button1.Visible = False
Me.button2.Visible = False
Me.button3.Visible = False
End Sub
Private Sub SetFormSize()
Dim widht As Integer = Me.labelMessage.Width + Me.pictureBoxIcon.Width + Me.panelBody.Padding.Left
Dim height As Integer = Me.panelTitleBar.Height + Me.labelMessage.Height + Me.panelButtons.Height + Me.panelBody.Padding.Top
Me.Size = New Size(widht, height)
End Sub
Private Sub SetButtons(buttons As MessageBoxButtons, defaultButton As MessageBoxDefaultButton)
Dim xCenter As Integer = (Me.panelButtons.Width - button1.Width) / 2
Dim yCenter As Integer = (Me.panelButtons.Height - button1.Height) / 2
Select Case buttons
Case MessageBoxButtons.OK
'OK Button
button1.Visible = True
button1.Location = New Point(xCenter, yCenter)
button1.Text = "Ok"
button1.DialogResult = DialogResult.OK 'Set DialogResult
'Set Default Button
SetDefaultButton(defaultButton)
Case MessageBoxButtons.OKCancel
'OK Button
button1.Visible = True
button1.Location = New Point(xCenter - (button1.Width / 2) - 5, yCenter)
button1.Text = "Ok"
button1.DialogResult = DialogResult.OK 'Set DialogResult
'Cancel Button
button2.Visible = True
button2.Location = New Point(xCenter + (button2.Width / 2) + 5, yCenter)
button2.Text = "Cancel"
button2.DialogResult = DialogResult.Cancel 'Set DialogResult
button2.BackColor = Color.DimGray
'Set Default Button
If defaultButton <> MessageBoxDefaultButton.Button3 Then
SetDefaultButton(defaultButton)
Else
SetDefaultButton(MessageBoxDefaultButton.Button1)
End If
Case MessageBoxButtons.RetryCancel
'Retry Button
button1.Visible = True
button1.Location = New Point(xCenter - (button1.Width / 2) - 5, yCenter)
button1.Text = "Retry"
button1.DialogResult = DialogResult.Retry 'Set DialogResult
'Cancel Button
button2.Visible = True
button2.Location = New Point(xCenter + (button2.Width / 2) + 5, yCenter)
button2.Text = "Cancel"
button2.DialogResult = DialogResult.Cancel 'Set DialogResult
button2.BackColor = Color.DimGray
'Set Default Button
If defaultButton <> MessageBoxDefaultButton.Button3 Then
SetDefaultButton(defaultButton)
Else
SetDefaultButton(MessageBoxDefaultButton.Button1)
End If
Case MessageBoxButtons.YesNo
'Yes Button
button1.Visible = True
button1.Location = New Point(xCenter - (button1.Width / 2) - 5, yCenter)
button1.Text = "Yes"
button1.DialogResult = DialogResult.Yes 'Set DialogResult
'No Button
button2.Visible = True
button2.Location = New Point(xCenter + (button2.Width / 2) + 5, yCenter)
button2.Text = "No"
button2.DialogResult = DialogResult.No 'Set DialogResult
button2.BackColor = Color.IndianRed
'Set Default Button
If defaultButton <> MessageBoxDefaultButton.Button3 Then
SetDefaultButton(defaultButton)
Else
SetDefaultButton(MessageBoxDefaultButton.Button1)
End If
Case MessageBoxButtons.YesNoCancel
'Yes Button
button1.Visible = True
button1.Location = New Point(xCenter - button1.Width - 5, yCenter)
button1.Text = "Yes"
button1.DialogResult = DialogResult.Yes 'Set DialogResult
'No Button
button2.Visible = True
button2.Location = New Point(xCenter, yCenter)
button2.Text = "No"
button2.DialogResult = DialogResult.No 'Set DialogResult
button2.BackColor = Color.IndianRed
'Cancel Button
button3.Visible = True
button3.Location = New Point(xCenter + button2.Width + 5, yCenter)
button3.Text = "Cancel"
button3.DialogResult = DialogResult.Cancel 'Set DialogResult
button3.BackColor = Color.DimGray
'Set Default Button
SetDefaultButton(defaultButton)
Case MessageBoxButtons.AbortRetryIgnore
'Abort Button
button1.Visible = True
button1.Location = New Point(xCenter - button1.Width - 5, yCenter)
button1.Text = "Abort"
button1.DialogResult = DialogResult.Abort 'Set DialogResult
button1.BackColor = Color.Goldenrod
'Retry Button
button2.Visible = True
button2.Location = New Point(xCenter, yCenter)
button2.Text = "Retry"
button2.DialogResult = DialogResult.Retry 'Set DialogResult
'Ignore Button
button3.Visible = True
button3.Location = New Point(xCenter + button2.Width + 5, yCenter)
button3.Text = "Ignore"
button3.DialogResult = DialogResult.Ignore 'Set DialogResult
button3.BackColor = Color.IndianRed
'Set Default Button
SetDefaultButton(defaultButton)
End Select
End Sub
Private Sub SetDefaultButton(defaultButton As MessageBoxDefaultButton)
Select Case defaultButton
Case MessageBoxDefaultButton.Button1 'Focus button 1
button1.Select()
button1.ForeColor = Color.White
button1.Font = New Font(button1.Font, FontStyle.Underline)
Case MessageBoxDefaultButton.Button2 'Focus button 2
button2.Select()
button2.ForeColor = Color.White
button2.Font = New Font(button2.Font, FontStyle.Underline)
Case MessageBoxDefaultButton.Button3 'Focus button 3
button3.Select()
button3.ForeColor = Color.White
button3.Font = New Font(button3.Font, FontStyle.Underline)
End Select
End Sub
Private Sub SetIcon(icon As MessageBoxIcon)
Select Case icon
Case MessageBoxIcon.Error
Me.pictureBoxIcon.Image = My.Resources._error
PrimaryColor = Color.FromArgb(224, 79, 95)
Me.btnClose.FlatAppearance.MouseOverBackColor = Color.Crimson
Case MessageBoxIcon.Information
Me.pictureBoxIcon.Image = My.Resources.information
PrimaryColor = Color.FromArgb(38, 191, 166)
Case MessageBoxIcon.Question
Me.pictureBoxIcon.Image = My.Resources.question
PrimaryColor = Color.FromArgb(10, 119, 232)
Case MessageBoxIcon.Exclamation
Me.pictureBoxIcon.Image = My.Resources.exclamation
PrimaryColor = Color.FromArgb(255, 140, 0)
Case MessageBoxIcon.None
Me.pictureBoxIcon.Image = My.Resources.chat
PrimaryColor = Color.CornflowerBlue
End Select
End Sub
'-> Events Methods
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub
#Region "-> Drag Form"
<DllImport("user32.DLL", EntryPoint:="SendMessage")>
Private Shared Sub SendMessage(hWnd As System.IntPtr, wMsg As Integer, wParam As Integer, lParam As Integer)
End Sub
<DllImport("user32.DLL", EntryPoint:="ReleaseCapture")>
Private Shared Sub ReleaseCapture()
End Sub
Private Sub panelTitleBar_MouseDown(sender As Object, e As MouseEventArgs) Handles panelTitleBar.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, &H112, &HF012, 0)
End Sub
#End Region
End ClassClase y métodos estáticos del Cuadro de Mensaje (Show(…))
public abstract class RJMessageBox
{
public static DialogResult Show(string text)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text))
result = msgForm.ShowDialog();
return result;
}
public static DialogResult Show(string text, string caption)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption))
result = msgForm.ShowDialog();
return result;
}
public static DialogResult Show(string text, string caption, MessageBoxButtons buttons)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons))
result = msgForm.ShowDialog();
return result;
}
public static DialogResult Show(string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons, icon))
result = msgForm.ShowDialog();
return result;
}
public static DialogResult Show(string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon, MessageBoxDefaultButton defaultButton)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons, icon, defaultButton))
result = msgForm.ShowDialog();
return result;
}
/*-> IWin32Window Owner:
* Displays a message box in front of the specified object and with the other specified parameters.
* An implementation of IWin32Window that will own the modal dialog box.*/
public static DialogResult Show(IWin32Window owner, string text)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text))
result = msgForm.ShowDialog(owner);
return result;
}
public static DialogResult Show(IWin32Window owner, string text, string caption)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption))
result = msgForm.ShowDialog(owner);
return result;
}
public static DialogResult Show(IWin32Window owner, string text, string caption, MessageBoxButtons buttons)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons))
result = msgForm.ShowDialog(owner);
return result;
}
public static DialogResult Show(IWin32Window owner, string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons, icon))
result = msgForm.ShowDialog(owner);
return result;
}
public static DialogResult Show(IWin32Window owner, string text, string caption, MessageBoxButtons buttons, MessageBoxIcon icon, MessageBoxDefaultButton defaultButton)
{
DialogResult result;
using (var msgForm = new FormMessageBox(text, caption, buttons, icon, defaultButton))
result = msgForm.ShowDialog(owner);
return result;
}
}Public MustInherit Class RJMessageBox
Public Shared Function Show(text As String) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text)
result = msgForm.ShowDialog()
End Using
Return result
End Function
Public Shared Function Show(text As String, caption As String) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption)
result = msgForm.ShowDialog()
End Using
Return result
End Function
Public Shared Function Show(text As String, caption As String, buttons As MessageBoxButtons) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons)
result = msgForm.ShowDialog()
End Using
Return result
End Function
Public Shared Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons, icon)
result = msgForm.ShowDialog()
End Using
Return result
End Function
Public Shared Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButton As MessageBoxDefaultButton) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons, icon, defaultButton)
result = msgForm.ShowDialog()
End Using
Return result
End Function
'-> IWin32Window Owner
' Displays a message box in front of the specified object And with the other specified parameters.
' An implementation of IWin32Window that will own the modal dialog box.*/
Public Shared Function Show(owner As IWin32Window, text As String) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text)
result = msgForm.ShowDialog(owner)
End Using
Return result
End Function
Public Shared Function Show(owner As IWin32Window, text As String, caption As String) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption)
result = msgForm.ShowDialog(owner)
End Using
Return result
End Function
Public Shared Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons)
result = msgForm.ShowDialog(owner)
End Using
Return result
End Function
Public Shared Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons, icon)
result = msgForm.ShowDialog(owner)
End Using
Return result
End Function
Public Shared Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButton As MessageBoxDefaultButton) As DialogResult
Dim result As DialogResult
Using msgForm = New FormMessageBox(text, caption, buttons, icon, defaultButton)
result = msgForm.ShowDialog(owner)
End Using
Return result
End Function
End Class