Argument using VBA.VbMsgBoxStyle

[moke123]

A week or so ago I came across some code which allows you to add custom buttons to the native message box. It seems that it may be useful at some point so its one to add to my code repository. The one thing I didn't like about it was the method of calling it. I added a function so it can be called with a simple function call with arguments.

One argument is for the msgbox style (ie.vbQuestion, vbCritical,etc) The purpose of the argument is to only provide the Icon for the constant, not the corresponding button styles (ie. 1,2 or 3 buttons,etc.)

I'm declaring the argument as

Optional Icon as VBA.VbMsgBoxStyle

which is great, it gives me a dropdown of ALL the constants.

My question is if there is any way to limit the the list of constants in the intellisense dropdown to just those constants that correspond to an Icon. (vbQuestion, vbCritical,vbExclamation,vbInformation)

file attached for refernce.

 

[theDBguy]

Hi. Just a guess, but my take is you'll probably have to declare your own Enum structure using the same constant but limited to the list you want included. For example:

Public Enum MyMsgBoxStyle
    vbQuestion = 32
    vbCritical = 16
    vbExclamation = 48
    vbInformation = 64
End Enum

Hope that helps...

 

[The_Doc_Man]

I'll second theDBguy's contention. You would need a special ENUM list because you cannot constrain an extant list, particularly since they come to us through a linked library and we can't get to the source code for same.

 

[moke123]

Thanks DBG

I had tried that earlier and was getting an error.

Just tried again and it works.

Earlier I think I was using the numerical constant as one of the arguments which when trying to combine them probably equated to 3 + 32 rather than the textual vbYesNo + vbQuestion. Now that I'm using the text it works.

Thanks.

 

[vba_php]

that's quite an intuitive accdb moke. I've worked with a lot of people that absolutely hated the message boxes that came with access, and as a result they all insisted on using form objects with smooth asthetics and images to stand in for message box occurrances. you probably aren't interested, but here's an example of a company president's attempt to make a substitute...

 

[theDBguy]

Thanks DBG

I had tried that earlier and was getting an error.

Just tried again and it works.

Earlier I think I was using the numerical constant as one of the arguments which when trying to combine them probably equated to 3 + 32 rather than the textual vbYesNo + vbQuestion. Now that I'm using the text it works.

Thanks.

Hi. Glad to hear you got it to work. Good luck with your project.