Subclass the message windows

Question

0.00/5 (No votes)

See more:

Hi

How Can i subclass windows Message using API in Vba then Load Cursor Hand in Ok Button

i do not know why Access hang and i have to exit from app only via task manager

What I have tried:

Public hHook As Long Ptr

In Timer Event Access Wrote a procedure

In form in ok button wrote Msgbox "Hello"

When push the button in timer Get Handle Of Message Window

hHook=SetWindowLongPtr .....

WindowHook.......

if Msg=Active then
OkHandle=FindWindowEx(hwnd,0,,"OK")
LoadCursor ??????

WindowHook=False
Call WindowProc ......

Posted 30-Dec-21 8:52am

Member 11803607

Add a Solution

Comments

CHill60 31-Dec-21 9:08am

I can't make head nor tail of what you have written here. Try to explain your problem clearly - including the actual code you have used. Other comments
- This won't compile it should be

Public hHook As LongPtr

.
- Timers do not have a button and you would need to tell us which Timer you are using
- What does "Load Cursor Hand in Ok Button" mean?

[no name] 31-Dec-21 15:50pm

Hiin standard module declared public hHook As LongPtr

Form Click Event : (Access Object )
Msgbox "Hi"

Form Timer Event ( Access Object )
hwnd=FindWindow("#32770,vbNullstring)
hhook=SetWindowLongPtrA(hwnd,AddressOf HookProc,oldWndProc)

But Hang System and i have to use Task Manager to End Process

Public Function HookProc (Byval hwnd As LongPtr,Byval msg As Long,ByVal wParam As LongPtr,ByVal lParam As LongPtr) As LongPtr
Select Case WM_LBUTTONDWON
SetWindowText wparam,"Clicked!!!"
HookProc=CallWindowProc(oldWndProc,hwnd,msg,wparam,lparam)
Case WM_SETCURSOR
....???
CallWindowProc ....
Case Else
HookProc=CallWindowProc(oldWndProc,hwnd,msg,wparam,lparam)
End if
End Select

i think we use EnumChildWindows to enumurate Childs then when get the handle to ok button change Cursor??? possible?!!!

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)