I want a msgbox to display BIG and LITTLE instead of YES and NO

[MLH]

Can I control what text appears on msgbox function buttons?
Sure do like NOT having to build a form to show a msg
and solicit a YES/NO response. MsgBox function is a great solution
for that.

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

[Tim Marshall]

MLH wrote:

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

AFAIK, No.
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[MLH]

Alrighty then. I'll stick with msgbox 's like this...
"Do you want the big one? Press Yes for the
big one and No for the small one."

That'll continue to do the job for me.

AFAIK, No.

[Terry Kreft]

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Terry Kreft
"MLH" <CR**@NorthState.net> wrote in message
news:kn********************************@4ax.com...

Can I control what text appears on msgbox function buttons?
Sure do like NOT having to build a form to show a msg
and solicit a YES/NO response. MsgBox function is a great solution
for that.

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

[jimfortune]

MLH wrote:

Can I control what text appears on msgbox function buttons?
Sure do like NOT having to build a form to show a msg
and solicit a YES/NO response. MsgBox function is a great solution
for that.

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

Visual Basic Graphics Programming:
Hands-on Applications and Advanced Color Development
Rod Stephens, 2nd Edition
Wiley Computer Publishing 1999
ISBN 0-471-35599-2

and

Win32 API Programming with Visual Basic
Steven Roman, First Edition
O'Reilly & Associates, Inc. 2000
ISBN: 1-56592-631-5

should contain enough information to allow a VBA programmer to change
the text of the command buttons on a MsgBox. I don't know if later
editions exist. I haven't tried this yet. It involves topics like
finding object handles, manipulating device contexts and subclassing.
Maybe I'll play around with it this weekend.

James A. Fortune

[Tom van Stiphout]

On Wed, 12 Oct 2005 22:50:15 +0100, "Terry Kreft"
<te*********@mps.co.uk> wrote:

Alternatively write your own MsgBox function, launching your own modal
form, passing in (OpenArgs) your button texts, etc.

-Tom.

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Terry Kreft
"MLH" <CR**@NorthState.net> wrote in message
news:kn********************************@4ax.com.. .

Can I control what text appears on msgbox function buttons?
Sure do like NOT having to build a form to show a msg
and solicit a YES/NO response. MsgBox function is a great solution
for that.

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

[Terry Kreft]

Tom,
The OP said he didn't really want to do this.

Terry Kreft
"Tom van Stiphout" <no*************@cox.net> wrote in message
news:64********************************@4ax.com...

On Wed, 12 Oct 2005 22:50:15 +0100, "Terry Kreft"
<te*********@mps.co.uk> wrote:

Alternatively write your own MsgBox function, launching your own modal
form, passing in (OpenArgs) your button texts, etc.

-Tom.

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Terry Kreft
"MLH" <CR**@NorthState.net> wrote in message
news:kn********************************@4ax.com. ..

Can I control what text appears on msgbox function buttons?
Sure do like NOT having to build a form to show a msg
and solicit a YES/NO response. MsgBox function is a great solution
for that.

Sure would like NOT to have to build a form to show a msg
and solicit a BIG/LITTLE or ON/OFF or RED/BLUE response.
Wish I could pop up a msgbox and assign the text i wanted onto
the button(s). Possible?

[Tim Marshall]

Terry Kreft wrote:

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Hi Terry,

I seem to recall a few years ago on cdma a discussion on some issues
using windows hooks (if that's the correct term). Is Randy Birch's
method free of this issue, if there indeed was an issue I mentioned (I
could be imagining it, I'm not sure...)?
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[MLH]

Cool solution. However, I had a problem in the "With" Statement
of the following function. I'm sure its a typo - just dunno what to
substitute for AddressOfMsgBoxHookProc.

Public Function MessageBoxH(hwndThreadOwner As Long, hwndOwner As
Long) As Long

'Wrapper function for the MessageBox API

Dim hInstance As Long
Dim hThreadId As Long

'Set up the CBT (computer-based training) hook
hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
hThreadId = GetCurrentThreadId()

'set up the MSGBOX_HOOK_PARAMS values
'By specifying a Windows hook as one
'of the params, we can intercept messages
'sent by Windows and thereby manipulate
'the dialog
With MSGHOOK
.hwndOwner = hwndOwner
.hHook = SetWindowsHookEx(WH_CBT, _
AddressOfMsgBoxHookProc, _
hInstance, hThreadId)
End With

'call the MessageBox API and return the
'value as the result of the function. The
'Space$(120) statements assures the messagebox
'is wide enough for the message that will
'be set in the hook.
'
'NOTE: I am setting the text in the hook only
'for demo purposes, to show how its done. You
'certainly can pass the title and prompt text
'right in the API call instead.
MessageBoxH = MessageBox(hwndOwner, _
Space$(120), _
Space$(120), _
MB_ABORTRETRYIGNORE Or MB_ICONINFORMATION)

End Function

[Terry Kreft]

You've got a space missing after AddressOf
AddressOfMsgBoxHookProc

should be
AddressOf MsgBoxHookProc
--
Terry Kreft

"MLH" <CR**@NorthState.net> wrote in message
news:jn********************************@4ax.com...

Cool solution. However, I had a problem in the "With" Statement
of the following function. I'm sure its a typo - just dunno what to
substitute for AddressOfMsgBoxHookProc.

Public Function MessageBoxH(hwndThreadOwner As Long, hwndOwner As
Long) As Long

'Wrapper function for the MessageBox API

Dim hInstance As Long
Dim hThreadId As Long

'Set up the CBT (computer-based training) hook
hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
hThreadId = GetCurrentThreadId()

'set up the MSGBOX_HOOK_PARAMS values
'By specifying a Windows hook as one
'of the params, we can intercept messages
'sent by Windows and thereby manipulate
'the dialog
With MSGHOOK
.hwndOwner = hwndOwner
.hHook = SetWindowsHookEx(WH_CBT, _
AddressOfMsgBoxHookProc, _
hInstance, hThreadId)
End With

'call the MessageBox API and return the
'value as the result of the function. The
'Space$(120) statements assures the messagebox
'is wide enough for the message that will
'be set in the hook.
'
'NOTE: I am setting the text in the hook only
'for demo purposes, to show how its done. You
'certainly can pass the title and prompt text
'right in the API call instead.
MessageBoxH = MessageBox(hwndOwner, _
Space$(120), _
Space$(120), _
MB_ABORTRETRYIGNORE Or MB_ICONINFORMATION)

End Function

[Terry Kreft]

Yim,
I seem t remember the discussion but can't remember the details. I'm sure a
Google search would bring it up. IIRC it's to do with running hook
procedures with the VBA IDE open.

--
Terry Kreft

"Tim Marshall" <TI****@PurplePandaChasers.Moertherium> wrote in message
news:di**********@coranto.ucs.mun.ca...

Terry Kreft wrote:

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Hi Terry,

I seem to recall a few years ago on cdma a discussion on some issues using
windows hooks (if that's the correct term). Is Randy Birch's method free
of this issue, if there indeed was an issue I mentioned (I could be
imagining it, I'm not sure...)?
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Stephen Lebans]

It's a bug with three possible workarounds.

1) Place your subclassing code in an external DLL.

2) Distribute your code a MDE solution. This will guarantee the VB IDE is
never open during a session.

3) Distribute a MDB but guarantee 100% that the VB IDE window will never be
open during a session and no errors are unhandled.

Basically, if you can guarantee that the VB IDE will never be opened during
a session then bug will not appear.

I always prefer to distribute subclassing solutions within a standard
Windows DLL produced in C++. This method has worked 100% of the time.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Terry Kreft" <te*********@mps.co.uk> wrote in message
news:CF********************@karoo.co.uk...

Yim,
I seem t remember the discussion but can't remember the details. I'm sure
a Google search would bring it up. IIRC it's to do with running hook
procedures with the VBA IDE open.

--
Terry Kreft

"Tim Marshall" <TI****@PurplePandaChasers.Moertherium> wrote in message
news:di**********@coranto.ucs.mun.ca...

Terry Kreft wrote:

Look at
http://vbnet.mvps.org/code/hooks/messageboxhook.htm

Hi Terry,

I seem to recall a few years ago on cdma a discussion on some issues
using windows hooks (if that's the correct term). Is Randy Birch's
method free of this issue, if there indeed was an issue I mentioned (I
could be imagining it, I'm not sure...)?
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[MLH]

Darn it! Something else must be wrong then. My code text
turns RED when I put in the space. When I press F1 on
the AddressOf keyword, I get a msg telling me the HELP
file doesn't exist and I should contact my vendor for an
updated HELP file. Maybe I'm improperly configured to
utilize AddressOf - never have tried before.
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBoxHookProc

should be
AddressOf MsgBoxHookProc

[Chuck Grimsby]

You didn't miss anything. Access 97 doesn't have the AddressOf
function built in as the later versions do.

You can, however, simulate it with the AddrOf function:
<http://groups.google.com/group/es.comp.bd.ms-access/msg/795ffb7a56934ab4?hl=en&>

(Which won't work in Access 2000 or higher. Of course, there's little
need, since in those versions, AddressOf works!)
On Mon, 17 Oct 2005 14:14:22 -0400, MLH <CR**@NorthState.net> wrote:

Darn it! Something else must be wrong then. My code text
turns RED when I put in the space. When I press F1 on
the AddressOf keyword, I get a msg telling me the HELP
file doesn't exist and I should contact my vendor for an
updated HELP file. Maybe I'm improperly configured to
utilize AddressOf - never have tried before.
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBoxHookProc

should be
AddressOf MsgBoxHookProc

--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[MLH]

Thanks, Chuck. Will grab that today and have a look at it.
xxxxxxxxxxxxxxxxxxxxxxxxxxxx
On Mon, 17 Oct 2005 16:59:49 -0500, Chuck Grimsby
<c.*******@worldnet.att.net.invalid> wrote:

You didn't miss anything. Access 97 doesn't have the AddressOf
function built in as the later versions do.

You can, however, simulate it with the AddrOf function:
<http://groups.google.com/group/es.comp.bd.ms-access/msg/795ffb7a56934ab4?hl=en&>

(Which won't work in Access 2000 or higher. Of course, there's little
need, since in those versions, AddressOf works!)
On Mon, 17 Oct 2005 14:14:22 -0400, MLH <CR**@NorthState.net> wrote:

Darn it! Something else must be wrong then. My code text
turns RED when I put in the space. When I press F1 on
the AddressOf keyword, I get a msg telling me the HELP
file doesn't exist and I should contact my vendor for an
updated HELP file. Maybe I'm improperly configured to
utilize AddressOf - never have tried before.
xxxxxxxxxxxxxxxxxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBoxHookProc

should be
AddressOf MsgBoxHookProc

[MLH]

Got it. Accepts a string, returns a long...
Public Function AddrOf(strFuncName As String) As Long

I still have a bit of a problem, though. Look at this snippet. I have
changed AddressOf to AddrOf, added AddrOf to my project and
tested this. Still failing at compile time. Could it be that AddrOf
expects a string and MsgBoxHookProc returns a Long? There problem
is there in the confines of the With statement at the end of the
snippet.

Public Function MessageBoxH(hwndThreadOwner As Long, hwndOwner As
Long) As Long

'Wrapper function for the MessageBox API

Dim hInstance As Long
Dim hThreadId As Long

'Set up the CBT (computer-based training) hook
hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
hThreadId = GetCurrentThreadId()

'set up the MSGBOX_HOOK_PARAMS values
'By specifying a Windows hook as one
'of the params, we can intercept messages
'sent by Windows and thereby manipulate
'the dialog
With MSGHOOK
.hwndOwner = hwndOwner
.hHook = SetWindowsHookEx(WH_CBT, _
AddrOf MsgBoxHookProc, _
hInstance, hThreadId)
End With

You can, however, simulate it with the AddrOf function:
<http://groups.google.com/group/es.comp.bd.ms-access/msg/795ffb7a56934ab4?hl=en&>

[Chuck Grimsby]

Here's your problem:

.hHook = SetWindowsHookEx(WH_CBT, _
AddrOf MsgBoxHookProc, _
hInstance, hThreadId)
Should be:

.hHook = SetWindowsHookEx(WH_CBT, _
AddrOf("MsgBoxHookProc"), _
hInstance, hThreadId)

As you mentioned, it "Accepts a string". AddrOf needs to know the
_name_ of the function, so you need to pass it the name, and thus it
needs to be in quotes.

Oh, I suppose you could always do something like:

Const strWhatFunctionToAddressOf As String = "MsgBoxHookProc"
.hHook = SetWindowsHookEx(WH_CBT, _
AddrOf(strWhatFunctionToAddressOf), _
hInstance, hThreadId)

but that seems a bit silly! <Grin>
By the way, you might want to go to
<http://www.mentalis.org/index2.shtml> and download their API viewer.
It's a bit dated (Last update in 2002), but it's still a valuable
resource for doing API work.
On Tue, 18 Oct 2005 11:11:34 -0400, MLH <CR**@NorthState.net> wrote:

Got it. Accepts a string, returns a long...
Public Function AddrOf(strFuncName As String) As Long I still have a bit of a problem, though. Look at this snippet. I have
changed AddressOf to AddrOf, added AddrOf to my project and
tested this. Still failing at compile time. Could it be that AddrOf
expects a string and MsgBoxHookProc returns a Long?

--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[MLH]

A gentleman and a scholar. Thx very much, Chuck.