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?

[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****@PurpleP andaChasers.Moe rtherium> 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*********@mp s.co.uk> wrote in message
news:CF******** ************@ka roo.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****@PurpleP andaChasers.Moe rtherium> 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.
xxxxxxxxxxxxxxx xxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBox HookProc

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.c om/group/es.comp.bd.ms-access/msg/795ffb7a56934ab 4?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**@NorthStat e.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.
xxxxxxxxxxxxxx xxxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBox HookProc

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.
xxxxxxxxxxxxxxx xxxxxxxxxxxxx
On Mon, 17 Oct 2005 16:59:49 -0500, Chuck Grimsby
<c.*******@worl dnet.att.net.in valid> 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.c om/group/es.comp.bd.ms-access/msg/795ffb7a56934ab 4?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**@NorthStat e.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.
xxxxxxxxxxxxx xxxxxxxxxxxxxxx

You've got a space missing after AddressOf
AddressOfMsgBox HookProc

should be
AddressOf MsgBoxHookProc

[MLH]

Got it. Accepts a string, returns a long...
Public Function AddrOf(strFuncN ame 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(hwn dThreadOwner 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(h wndThreadOwner, GWL_HINSTANCE)
hThreadId = GetCurrentThrea dId()

'set up the MSGBOX_HOOK_PAR AMS 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 = SetWindowsHookE x(WH_CBT, _
AddrOf MsgBoxHookProc, _
hInstance, hThreadId)
End With

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

[Chuck Grimsby]

Here's your problem:

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

.hHook = SetWindowsHookE x(WH_CBT, _
AddrOf("MsgBoxH ookProc"), _
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 strWhatFunction ToAddressOf As String = "MsgBoxHookProc "
.hHook = SetWindowsHookE x(WH_CBT, _
AddrOf(strWhatF unctionToAddres sOf), _
hInstance, hThreadId)

but that seems a bit silly! <Grin>
By the way, you might want to go to
<http://www.mentalis.or g/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**@NorthStat e.net> wrote:

Got it. Accepts a string, returns a long...
Public Function AddrOf(strFuncN ame 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.