The msgbox widget is really useful. However the font limitations of the default msgbox can be brutal if your trying to deliver a message with considerable information. Has anyone coded an improved msgbox class that would take the same arguements + font?

It is so easy to create one yourself with a form, why are you looking for someone's elses code?


Good Luck

It is so easy to create one yourself with a form, why are you looking for someone's elses code?


Good Luck

Ok then, How do I pass a subroutine parameter to a new form instance? For example, msgbox constructors allow:
a string in the box: "Hello World!"
a messagebox type IE: MsgBoxStyle.YesNo
a string for the title: "Howdy"

So that I can call my improved msgbox like thus:
dim msg as newFangledMessageBox
msg = new newFangledMessageBox("You're on fire!", newFangledMessageBox.Exclamation, "Mega Danger!")

... having it show the Ok button only, etc.

or ...

msg = new newFangledMessageBox("Would you a bucket of water?", newFangledMessageBox.YesNo, "Self Preservation Option")

so it will call a sub to show just the yes and no buttons.

The msgbox widget is really useful. However the font limitations of the default msgbox can be brutal if your trying to deliver a message with considerable information. Has anyone coded an improved msgbox class that would take the same arguements + font?

Dear JdTSC,

What you are looking for is probably a form constructor. See, a form is just another class and all classes need constructors. What you may have failed to mention is that you are using vb.net with studio '05. Most of what happens here is a behind the scenes code build by studio.

So any generated form class has it's constructors hidden off in the depths where you'll have to dig to find it, but no matter, just build a new one as such.

'within the form class code...
Public Sub New(ByVal strMsg As String, _
byval strType as string, _
byval strTitle as string)


MyBase.New()
InitializeComponent()
'insert anything else you might care for as a default value.
'or load some of those strings into a text hole.
'as this part supercedes even form.load

End Sub

In this way you can pass all kinds of arguements to a form. Just like you can pass to a function or what not.

'So declare a variable of the form type...
dim var = formWidget

'then declare it as new and put in some parameters...
var = new formWidget("Hello World", "OkOnly", "Greeting")

Tada, the form has the passed variables... but wait! That's not all!

Like the msgbox() widget you might like a return value. This is accomplished with a little something called dialog.

You can set it as such...
'put this mess in the load part of your form
btnOk.DialogResult = Windows.Forms.DialogResult.OK
btnYes.DialogResult = Windows.Forms.DialogResult.Yes
btnCancel.DialogResult = Windows.Forms.DialogResult.Cancel

...or you can use your good properties tool thing in studio to set dialog there for you buttons.

Then your calling form can do something like...
dim choice as string = var.showdialog().tostring
If choice = "Ok" then

'they pushed ok, execute code here

End If

or you can use a select case for dialog returns. Remember it returns a variable of type DialogResult. But .tostring can fix that wagon.

So use var.show() if you don't care about the dialog and

var.showdialog() if you're interested in getting a return type of dialogResult.
Also note that .showdialog disallows any other application action until the dialog has been completed. Which can be nice.

Alrighty, so then you need some kind of select case contraption to handle that middle string which will tell the form what buttons to show, etc.

As such...
'put this in the load aspect also
Select Case strType
Case "OkOnly"
'make visable the ok button only
case "YesNo"
'make visable the Yes and No buttons only
case "OkCancel"
'make visable the ok and cancel buttons
End Select

And do that to your hearts content. Or change text of existing buttons and change their dialogresult return type by case.

Add a label or txb or richtextbox or whatever to take the strMsg from load.
Add me.text = strTitle in form load to make the 3rd arguement string your title of form.

Then you can add whatever font, color, .bmp's, or anything to your new fancy msgForm.

Oh yeah, be sure to thank all the guy's that +1'd your post. Super helpful.

This question has already been answered. Start a new discussion instead.