Custom Msg Box - Printable Version

Custom Msg Box - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Custom Msg Box (/showthread.php?tid=1728)

Custom Msg Box - wisefire - 03-05-2008

Allright, Im trying to make a custom msgbox, The basic one is ugly as, well you know.

So I made a form, Added a lable and a button, Wahoo. Now, the sub;

Code:
Public Sub MsgBox(Msg As String)

          frmMsgBox.Visible = True

          Msg = frmMsgBox.MsgLabel.Caption

End Sub

So basicly, this is called,

Code:
Call MsgBox("Bound Item ; This Item may not be dropped nor traded.")

The Box will pop up, set the label and you can click ok to close it.

Yet. It dosn't work Someone wanna let me know why?

Re: Custom Msg Box - Dragoons Master - 03-05-2008

I think...
Msg = frmMsgBox.MsgLabel.Caption
should be
frmMsgBox.MsgLabel.Caption = Msg

Re: Custom Msg Box - wisefire - 03-05-2008

Dragoons Master Wrote:I think...
Msg = frmMsgBox.MsgLabel.Caption
should be
frmMsgBox.MsgLabel.Caption = Msg

Aw, Such an easy fix. Thanks!

Re: Custom Msg Box - Dragoons Master - 03-05-2008

It happens hehehe.

Re: Custom Msg Box - Tony - 03-05-2008

Yeah, lblCaption would've been nothing and your just

setting the variable Msg to what lblCaption would be.