Topic: Set focus to drawing area

[Matt__W]

Can someone point me in the right direction?  I know there's a way to set focus to the drawing area after, say, clicking a button on a modeless form.  I think it had something to do with getting the application title??  But I'm not 100% sure.

Anyone?

[deegeecees]

You mean like this?

Code: [Select]

Dim X As New EventClassModule

Sub InitializeEvents()
    Set X.App = ThisDrawing.Application
End Sub

Call InitializeEvents
Then I believe you can use Setfocus to the app X. I could be wrong, haven't coded in a while.

[Matt__W]

You mean like this?

Code: [Select]

Dim X As New EventClassModule

Sub InitializeEvents()
    Set X.App = ThisDrawing.Application
End Sub

Call InitializeEvents
Then I believe you can use Setfocus to the app X. I could be wrong, haven't coded in a while.

Thanks!

I found something for AppActivate last night - that seems to have knocked the cobwebs loose.

[rogue]

You mentioned  a modeless window. Is this code being run from Inside of autocad? If so. remember that if your code ends up running into a Modal dialog, your'e sunk... your app will wait forever, and your code to close the window will never get called.

if it's being run from outside of autocad, and you are already using OLE on the Acad application, then each drawing window has its own hWnd, not just the parent application.  That means you wont have to tunnel down using the "FindWindow" and "EnumChildWindows" API calls.

I'd get "ThisDrawing.hwnd" before the dialog appears, and use the "SetActiveWindow" API call right to the hwnd:

Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

[Matt__W]

Thanks!