[VB.NET] Advanced MessageBox Control

[BlackSpider]

This is just an example, made by Soul Collector(Me).
It's advanced MessageBox creator, but basic code. :tongue:


Code:

Code:

'    Author: Soul Collector
'    Comment: This example is coded for HF.NET & VBLeet.com
'    Date: 13/02/2010 - 20:02
'    MSN e-mail: soulcoll3ctor@live.com
'    Visit: Vbleet.com & Hackforums.net

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If rbError.Checked And Ok.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And Ok.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And Ok.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And Ok.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If

        If rbError.Checked And OkCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And OkCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And OkCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And OkCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
        End If

        If rbError.Checked And YesNo.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And YesNo.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And YesNo.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And YesNo.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        End If

        If rbError.Checked And YesNoCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And YesNoCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And YesNoCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And YesNoCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning)
        End If

        If rbError.Checked And RetryCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And RetryCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And RetryCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And RetryCancel.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning)
        End If

        If rbError.Checked And AbortRetryIgnore.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)
        ElseIf rbInformation.Checked And AbortRetryIgnore.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Information)
        ElseIf rbQuestion.Checked And AbortRetryIgnore.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question)
        ElseIf rbWarning.Checked And AbortRetryIgnore.Checked Then
            MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning)
        End If
    End Sub
End Class

Download Project:
http://www.multiupload.com/2P4ZVDPQ6S