Getting the text of a control with Windowclass OKttbx

[fotzor]

Hi,
I'm a C++-Programmer and want to subclass the Edit used to write a
SQL-Query in Access. The edit is of the special Access class OKttbx.
Everything works, I injected a DLL into the Access-Process and the
subclassing works but I can't get the Windowtext of the control...I
tried the WM_GETTEXT message but it seems that Microsoft uses another
way to get the text the user typed in.
Has somebody an idea how I can get this to work?

mfg Steven

[Stephen Lebans]

Hi Steven,
here is an example using GetWIndowText, which just calls WM_GETTEXT. The
important point here is that the OQry window control(s) are lightweight.
When the window does not have the focus, its child OKttbx window
contains nothing. Only when the OQry window has the focus, and it is in
SQL View, are you able to get at the SQL text contents. The child OKttbx
window is shared with SQL Design, SQL View and SQL Datasheet views.

This code is placed behind the Click event of a CommandButton control
named "cmdQuery". It assumes a saved Query with the name of "1" and a
TextBox control with a name of "Text3".
Private Sub cmdQuery_Click( )
On Error GoTo Err_cmdQuery_Cl ick
Dim lngRet As Long
Dim hWndMDI As Long
Dim hWndOQry As Long
Dim hWndOKttbx As Long

Dim s As String

' Open a Query
DoCmd.OpenQuery "1", acViewNormal
DoCmd.RunComman d acCmdSQLView
DoEvents

' The OQry Window is a child of the MDI Client window
' find MDIClient first.
hWndMDI = FindWindowEx(Ap plication.hWndA ccessApp, 0&, "MDIClient" ,
vbNullString)
' Find the OQry Window
hWndOQry = FindWindowEx(hW ndMDI, 0&, "OQry", vbNullString)

If hWndOQry = 0 Then
MsgBox "The SQL View Window is not open.", vbCritical, "Critical
Error"
Exit Sub
End If

' Find the window of class OKttbx
hWndOKttbx = FindWindowEx(hW ndOQry, 0&, "OKttbx", vbNullString)

' Get the Text of the SQL Design window
s = Space(512)
lngRet = GetWindowText(h WndOKttbx, s, 256)
Debug.Print "S:" & s & Time
Me.Text3.Value = s
Exit_cmdQuery_C lick:
Exit Sub

Err_cmdQuery_Cl ick:
MsgBox Err.Description
Resume Exit_cmdQuery_C lick

End Sub

--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"fotzor" <st******@gmx.d e> wrote in message
news:44******** *************** ***@posting.goo gle.com...

Hi,
I'm a C++-Programmer and want to subclass the Edit used to write a
SQL-Query in Access. The edit is of the special Access class OKttbx.
Everything works, I injected a DLL into the Access-Process and the
subclassing works but I can't get the Windowtext of the control...I
tried the WM_GETTEXT message but it seems that Microsoft uses another
way to get the text the user typed in.
Has somebody an idea how I can get this to work?

mfg Steven

[Dimitri Furman]

On May 16 2004, 06:17 am, st******@gmx.de (fotzor) wrote in
news:44******** *************** ***@posting.goo gle.com:

I'm a C++-Programmer and want to subclass the Edit used to write a
SQL-Query in Access. The edit is of the special Access class OKttbx.
Everything works, I injected a DLL into the Access-Process and the
subclassing works but I can't get the Windowtext of the control...I
tried the WM_GETTEXT message but it seems that Microsoft uses another
way to get the text the user typed in.
Has somebody an idea how I can get this to work?

SendMessage with WM_GETTEXT works for me. If VB source helps you any, take
a look at WinTree from http://www.users.cloud9.net/~dfurman/code.htm. In
the cWindow class, look at the WindowText property. You may be doing this
already, but you need first to call SendMessage with the WM_GETTEXTLENGT H
parameter to get the length of the text, then use WM_GETTEXT.

--
remove a 9 to reply by email

[steven weiss]

Well, it works - almost!
It works only before I subclass. When I Execute the following code in
the handler of WM_PAINT (where I actually need the text) it shows me
stuff (like before). I hope the code is self-explanatory

void OnPaint(HWND hWnd)
{
SetFocus(GetPar ent(hWnd));

int len = GetWindowTextLe ngth(hWnd);
char* pchText = (char*) malloc(len + 1);
if (pchText) {
GetWindowText(h Wnd, pchText, len);
}

... Print the text
}

I think the problem is that the edit I subclassed is the child of OQry
and therefore has the input focus when OQry should have it. But when I
test immediately after SetFocus() whether OQry has the Focus, it
actually has it...strange!

do you have another idea how to solve this? do you know where (in
memory) OQry saves the text? and why wanted the ms programmers this to
be such complicated?

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Stephen Lebans]

Why are you setting focus to the parent? If this Paint handler function
is for the subclassed OKttbx then as I mentioned the focus should stay
with OKttbx control.
Is this an ActiveX control you are creating in VC?

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"steven weiss" <st******@gmx.d e> wrote in message
news:40******** *************@n ews.frii.net...

Well, it works - almost!
It works only before I subclass. When I Execute the following code in
the handler of WM_PAINT (where I actually need the text) it shows me
stuff (like before). I hope the code is self-explanatory

void OnPaint(HWND hWnd)
{
SetFocus(GetPar ent(hWnd));

int len = GetWindowTextLe ngth(hWnd);
char* pchText = (char*) malloc(len + 1);
if (pchText) {
GetWindowText(h Wnd, pchText, len);
}

... Print the text
}

I think the problem is that the edit I subclassed is the child of OQry
and therefore has the input focus when OQry should have it. But when I
test immediately after SetFocus() whether OQry has the Focus, it
actually has it...strange!

do you have another idea how to solve this? do you know where (in
memory) OQry saves the text? and why wanted the ms programmers this to
be such complicated?

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Stephen Lebans]

Hi Dimitry!
Answering the original question in this thread gave me an excuse to post
this:
http://www.lebans.com/addsqlcomments.htm
NEW - May 16/2004 A2KAddSQLCommen ts.zip is an MDB containing functions
to:

1) To allow the saving of Comments in the SQL View window.
2) To allow the saving/restoration of Comments in the SQL View window.

Here is the A97 version:A97AddS QLComments.zip

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Dimitri Furman" <df*****@cloud9 9.net> wrote in message
news:Xn******** *************** *****@127.0.0.1 ...

On May 16 2004, 06:17 am, st******@gmx.de (fotzor) wrote in
news:44******** *************** ***@posting.goo gle.com:

I'm a C++-Programmer and want to subclass the Edit used to write a
SQL-Query in Access. The edit is of the special Access class OKttbx.
Everything works, I injected a DLL into the Access-Process and the
subclassing works but I can't get the Windowtext of the control...I
tried the WM_GETTEXT message but it seems that Microsoft uses another way to get the text the user typed in.
Has somebody an idea how I can get this to work?
SendMessage with WM_GETTEXT works for me. If VB source helps you any,

take a look at WinTree from http://www.users.cloud9.net/~dfurman/code.htm. In the cWindow class, look at the WindowText property. You may be doing this already, but you need first to call SendMessage with the WM_GETTEXTLENGT H parameter to get the length of the text, then use WM_GETTEXT.

--
remove a 9 to reply by email

[Dimitri Furman]

On May 16 2004, 03:34 pm, "Stephen Lebans" <ForEmailGotoMy .WebSite.-
WW************* ***@linvalid.co m> wrote in
news:vn******** *************@u rsa-nb00s0.nbnet.nb .ca:

Hi Dimitry!
Answering the original question in this thread gave me an excuse to post
this:
http://www.lebans.com/addsqlcomments.htm
NEW - May 16/2004 A2KAddSQLCommen ts.zip is an MDB containing functions
to:

1) To allow the saving of Comments in the SQL View window.
2) To allow the saving/restoration of Comments in the SQL View window.

Hi Stephen,

Very nice, and long needed too!

One possible improvement would be to look for the last ";" in the SQL
string, not the first one, because you may have a subquery which also ends
with ";". A user may also enter ";" in the comments, so I guess you should
skip everything after "/Comment" when looking for the last ";". It is also
possible to enter parsable SQL in the query SQL window that has no
semicolons anywhere in it (Access usually adds one silently to the end of
the string, but only when you run or save the query).

--
remove a 9 to reply by email

[Stephen Lebans]

Thanks for the advice Dimitri. I will implement your suggestions as you
mentioned to allow for subqueries.
The current code will only work for saved queries as it relies on the
SQL View window's caption to identify and store/restore any Comments.
:-)

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Dimitri Furman" <df*****@cloud9 9.net> wrote in message
news:Xn******** *************** *****@127.0.0.1 ...

On May 16 2004, 03:34 pm, "Stephen Lebans" <ForEmailGotoMy .WebSite.-
WW************* ***@linvalid.co m> wrote in
news:vn******** *************@u rsa-nb00s0.nbnet.nb .ca:

Hi Dimitry!
Answering the original question in this thread gave me an excuse to post this:
http://www.lebans.com/addsqlcomments.htm
NEW - May 16/2004 A2KAddSQLCommen ts.zip is an MDB containing functions to:

1) To allow the saving of Comments in the SQL View window.
2) To allow the saving/restoration of Comments in the SQL View

window.
Hi Stephen,

Very nice, and long needed too!

One possible improvement would be to look for the last ";" in the SQL
string, not the first one, because you may have a subquery which also ends with ";". A user may also enter ";" in the comments, so I guess you should skip everything after "/Comment" when looking for the last ";". It is also possible to enter parsable SQL in the query SQL window that has no
semicolons anywhere in it (Access usually adds one silently to the end of the string, but only when you run or save the query).

--
remove a 9 to reply by email

[steven weiss]

>> Why are you setting focus to the parent?

I gave it a try because I wasn't able to get the Window text in the
WM_PAINT-handler

Is this an ActiveX control you are creating in VC?

No, it's a DLL which gets into the Access process and subclasses the
SQL-Query-Window to draw bigger letters. It's very annoying to be not
able to change the font size...

@Stephen
Your example didn't help much. I tested if OKttbx has the focus (indeed
it has) and wanted to get the Windowtext with GetWindowText (like you)
but I get stuff...

Do you have any Suggestions and ideas else?
Thanks anyway for your help, I think I'm on the right path now :-)

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Stephen Lebans]

I remember a couple of years ago using WM_SETFONT to try to change the
Font in the SQL View window. Access does not bother to use the actual
SQL View window's current Font metrics as it refuses to believe that the
System font is not selected into the window. So overriding the Paint
proc would not be enough. You would have to handle the keyboard
interface as well.

Please let the group know how you make out. A2003 finally has the
functionality to allow the user to select the SQL View window Font size.
For A2K2 or lower, most users would enjoy using your solution.

--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"steven weiss" <st******@gmx.d e> wrote in message
news:40******** *************@n ews.frii.net...

Why are you setting focus to the parent?
I gave it a try because I wasn't able to get the Window text in the
WM_PAINT-handler

Is this an ActiveX control you are creating in VC?

No, it's a DLL which gets into the Access process and subclasses the
SQL-Query-Window to draw bigger letters. It's very annoying to be not
able to change the font size...

@Stephen
Your example didn't help much. I tested if OKttbx has the focus

(indeed it has) and wanted to get the Windowtext with GetWindowText (like you)
but I get stuff...

Do you have any Suggestions and ideas else?
Thanks anyway for your help, I think I'm on the right path now :-)

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!