Support Forums › Categories › Coding Support Forums › Visual Basic and the .NET Framework
[VB.NET] Advanced MessageBox Control

Thread Rating:
  • 1 Vote(s) - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Threaded Mode
[VB.NET] Advanced MessageBox Control
BlackSpider Offline
BlackSpider - Incoming Project
*
Posts: 18
Threads: 13
Joined: Apr 2010
Reputation: 1
#1
04-06-2010, 03:49 AM
This is just an example, made by Soul Collector(Me).
It's advanced MessageBox creator, but basic code. :tongue:
[Image: 2usfwbs.png]

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
Find
Reply
RaZoR03 Offline
Junior Member
**
Posts: 95
Threads: 5
Joined: Apr 2010
Reputation: 0
#2
04-18-2010, 12:15 AM
Brilliant tut,i was looking for it
[Image: 20r9vh4.jpg]
Find
Reply
milopeach Offline
Vini Vidi Vici
***
Posts: 122
Threads: 14
Joined: Sep 2010
Reputation: 3
#3
09-16-2010, 07:57 AM
Soul Collector is an amazing coder, Thanks for the source!
Find
Reply
-BoodyE- Offline
Regular Member
***
Posts: 127
Threads: 1
Joined: Jul 2010
Reputation: 1
#4
09-21-2010, 04:02 AM
Thanks for the source Soul Collector.
It'll come in handy Smile
Find
Reply
mmki Offline
Rawr!
***
Posts: 102
Threads: 3
Joined: Jun 2010
Reputation: 0
#5
09-24-2010, 04:37 AM
Thanks bro
Kinda of a messy code. I would have done it a diffrent way
[Image: blanktemplate.png]
Find
Reply
Fragma Away
Gone.
*****
Posts: 3,538
Threads: 348
Joined: Mar 2010
Reputation: 57
#6
09-24-2010, 04:40 AM
I don't really get the point of this application? When would you ever need to use this?

Also, like mmki said, the coding is pretty messy. And for such a simple task. Tongue
Website Find
Reply
mmki Offline
Rawr!
***
Posts: 102
Threads: 3
Joined: Jun 2010
Reputation: 0
#7
09-24-2010, 04:46 AM
Yeah unless you could save the messagebox or something as an .exe (?). Then i dont think it has much use at all lol
[Image: blanktemplate.png]
Find
Reply
ruk00112 Offline
PHP and C++ Trainee
**
Posts: 86
Threads: 6
Joined: Aug 2010
Reputation: 0
#8
09-25-2010, 04:49 AM
Thank you so much for realeasing it for free. This will be a great contribution to my programs that i will be making in the future
[Image: banner.gif]
Find
Reply
NathanE Offline
http://elitevb.net
*
Posts: 47
Threads: 4
Joined: Apr 2010
Reputation: 0
#9
12-13-2010, 12:35 AM
very good tutorial mate. downloading now!
http://elitevb.net

[Image: i7Omcq]

My NEOBux Method

Website Find
Reply
nosferatus Offline
Learner
*
Posts: 2
Threads: 0
Joined: Dec 2010
Reputation: 0
#10
01-12-2011, 09:35 PM
This is nice.
For the one's who want's this in C# this is it.
(i know is not much, but it will save you some time)

Code:
using System;
using System.Windows.Forms;

//    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

namespace Advanced_MessageBox
{
    public partial class Form1
    {
        public Form1()
        {
            InitializeComponent();
            
            //Added to support default instance behavour in C#
            if (_defaultInstance == null)
                _defaultInstance = this;
        }
        
        #region Default Instance
        
        private static Form1 _defaultInstance;
        
        /// <summary>
        /// Added by the VB.Net to C# Converter to support default instance behavour in C#
        /// </summary>
        public static Form1 Default
        {
            get
            {
                if (_defaultInstance == null)
                {
                    _defaultInstance = new Form1();
                    _defaultInstance.FormClosed += DefaultInstanceFormClosed;
                }
                
                return _defaultInstance;
            }
        }
        
        static void DefaultInstanceFormClosed(object sender, FormClosedEventArgs e)
        {
            _defaultInstance = null;
        }
        
        #endregion
        public void Button1_Click(object sender, EventArgs e)
        {
            if (rbError.Checked && Ok.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && Ok.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && Ok.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && Ok.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
            }
            
            if (rbError.Checked && OkCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && OkCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && OkCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && OkCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Warning);
            }
            
            if (rbError.Checked && YesNo.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && YesNo.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && YesNo.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && YesNo.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Warning);
            }
            
            if (rbError.Checked && YesNoCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && YesNoCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && YesNoCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && YesNoCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning);
            }
            
            if (rbError.Checked && RetryCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && RetryCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && RetryCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && RetryCancel.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning);
            }
            
            if (rbError.Checked && AbortRetryIgnore.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error);
            }
            else if (rbInformation.Checked && AbortRetryIgnore.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Information);
            }
            else if (rbQuestion.Checked && AbortRetryIgnore.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question);
            }
            else if (rbWarning.Checked && AbortRetryIgnore.Checked)
            {
                MessageBox.Show(txtMsg.Text, txtTitle.Text, MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning);
            }
        }
    }
    
}

Download source in C#
Find
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  [SOURCE] Advanced Webcam Viewer TalishHF 4 3,847 08-25-2014, 01:20 AM
Last Post: dark_move
  [TUT]Creating Advanced Web Browser with Awesome Theme Imaking31 0 1,320 05-25-2013, 03:12 AM
Last Post: Imaking31
  Free Advanced Port Scanner SOURCE [ VB.NET ] Filefinder 6 5,750 01-22-2013, 04:27 AM
Last Post: TalishHF
  How To make an advanced Operating System in Visual Basic 2010 ? Mohamed Samir 9 12,449 01-15-2013, 09:30 PM
Last Post: Resistance
  vb6.0 SSTab control disappeared DanB 0 1,300 12-29-2012, 10:24 AM
Last Post: DanB

Forum Jump:


Users browsing this thread: 1 Guest(s)