Building a Form to use intead a MsgBox standard window ! (1 Viewer)

[alvingenius]

Hello
I know it sounds weird, but I'm trying to build a form to act as Messagebox; with it, it gives an excellent look instead of the standard message box window

I've tried the formatted messagebox in AttentionSeek db of @isladogs, and it's not giving a look that a specific form gives!

here's a demo of the form and the look I'm expecting vs standard msgbox

So, I'm trying to build a custom function to handle it and for the msgboxstyle I wanna use this cases

    Select Case vbMsgBoxStyle
        Case vbOKOnly
            frm_Messagebox.btnYesOk.Caption = "OK"
            frm_Messagebox.btnNo.Visible = False
        Case vbYesNo
            frm_Messagebox.btnYesOk.Caption = "Yes"
            frm_Messagebox.btnNo.Visible = True
        Case vbCritical
            ' Set the image control to the critical image.
            frm_Messagebox.imgCritical.Visible = True
            frm_Messagebox.imgInformation.Visible = False
        Case vbInformation
            ' Set the image control to the information image.
            frm_Messagebox.imgCritical.Visible = False
            frm_Messagebox.imgInformation.Visible = True
    End Select

and this function should use the same msgbox arguments of "prompt message", "Title", vbOkOnly, vbYesNo, vbInformation, vbCritical
and the user should call this function using "MsgboxFrm" instead of "Msgbox"
So the upper screenshot should be called via this code

MsgBoxFrm "Are you sure you want to delete this record?", vbCritical + vbYesNo, "Delete Confirmation"

I don't know how to proceed further.
Should it be built as a module, or should I use the Form that I made as message box on Form_load event !
how to get the message prompt and the title, and other msgboxstyles
how to detect what button the user clicked? how to pass this information to where I called the function to proceed with the actions related to the user choice (like how msgbox acts)

I wish I get help on this task, and I'm attaching the demo db that has the design of the form and the msgbox examples

 

[June7]

Did you not simply install Colins table, form, and code into your db? You can modify his form for your style preferences.

I don't think the MsgBox constants will have any meaning to your message form. I am not sure what you are asking for with that question. You set textbox, button, and image controls with whatever info you want to display. After all, this is just a form.

You don't 'detect' what button user clicks, you use button Click event to process code.

Pass information between message form and another form same way as would with any two forms. There are several ways: Global variable, TempVar, setting value of a textbox, OpenArgs.

Which Form_Load event are you referencing?

About only reason I can see for going to all this trouble is if you have users with poor eyesight. I try hard to avoid use of popup MsgBox.

 

[arnelgp]

maybe what you need is a TaskDialog:
[VB6] TaskDialogIndirect - Complete class implementation of Vista+ Task Dialogs-VBForums

an Enhanced Msgbox:
Improved, Enhanced Message Box for MS Access (datenbank-projekt.de)

modified Enhanced Msgbox on this forum:
Better Msgbox alternative | Access World Forums (access-programmers.co.uk)

 

[isladogs]

As June said, I'm just wondering why you didn't adapt the customised message form examples from my article/example app

Attention Seeking Database

This shows many different ways of getting users' attention including customised message boxes, flashing/scrolling/balloon tooltip text, form animation, transparency and fade, dim/blur/remove background

www.isladogs.co.uk

Yet another variation on this is the 'Modern Box' provided by Gustav Brock

GitHub - GustavBrock/VBA.ModernBox: Modern/Metro style message box and input box for Microsoft Access 2013+

Modern/Metro style message box and input box for Microsoft Access 2013+ - GustavBrock/VBA.ModernBox

github.com