Activating program with windows class name

[questionit]

Hi

I am trying to activate a program using its Windows Class Name. Here is the code. :

Private Sub Command0_Click()
Dim rVal As Integer
    rVal = AppActivateClass("SciCalc")
End Sub
 
Function AppActivateClass(lpclassname$)
      Dim hWnd As Integer       'the application's window handle
      Dim dummy As Integer      'Dummy variable
 
      'Get the Window Handle
      hWnd = alias_FindWindow("lpclassname$", 0&)
 
      'Activate the Application
      dummy = alias_SetActiveWindow(hWnd)
      dummy = alias_ShowWindow(hWnd, SW_SHOW)
 
      'Return True if Application Running, or False if not.
      AppActivateClass = hWnd
 
End Function
 

In module:

Declare Function alias_ShowWindow Lib "User" Alias "ShowWindow" _
     (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
 
    Declare Function alias_FindWindow Lib "User" Alias "FindWindow" _
     (ByVal lpclassname As String, ByVal lpCaption As Any) As Integer
 
    Declare Function alias_SetActiveWindow Lib "User" Alias _
      "SetActiveWindow" (ByVal hWnd As Integer) As Integer
 
    Const SW_SHOW = 9
 

I am keep getting error 53: File not Found 'User'

I have no idea what this error means and what file error has to do with this program?

Any ideas?

Thanks
Qi

[ADezii]

Hi

I am trying to activate a program using its Windows Class Name. Here is the code. :

Private Sub Command0_Click()
Dim rVal As Integer
    rVal = AppActivateClass("SciCalc")
End Sub
 
Function AppActivateClass(lpclassname$)
      Dim hWnd As Integer       'the application's window handle
      Dim dummy As Integer      'Dummy variable
 
      'Get the Window Handle
      hWnd = alias_FindWindow("lpclassname$", 0&)
 
      'Activate the Application
      dummy = alias_SetActiveWindow(hWnd)
      dummy = alias_ShowWindow(hWnd, SW_SHOW)
 
      'Return True if Application Running, or False if not.
      AppActivateClass = hWnd
 
End Function
 

In module:

Declare Function alias_ShowWindow Lib "User" Alias "ShowWindow" _
     (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
 
    Declare Function alias_FindWindow Lib "User" Alias "FindWindow" _
     (ByVal lpclassname As String, ByVal lpCaption As Any) As Integer
 
    Declare Function alias_SetActiveWindow Lib "User" Alias _
      "SetActiveWindow" (ByVal hWnd As Integer) As Integer
 
    Const SW_SHOW = 9
 

I am keep getting error 53: File not Found 'User'

I have no idea what this error means and what file error has to do with this program?

Any ideas?

Thanks
Qi

To the best of my knowledge, the AppActivateClass() Function has not been supported by Access since Version 2.0. Use the AppActivate Statement instead.

[dima69]

Hi

I am trying to activate a program using its Windows Class Name. Here is the code. :

Private Sub Command0_Click()
Dim rVal As Integer
    rVal = AppActivateClass("SciCalc")
End Sub
 
Function AppActivateClass(lpclassname$)
      Dim hWnd As Integer       'the application's window handle
      Dim dummy As Integer      'Dummy variable
 
      'Get the Window Handle
      hWnd = alias_FindWindow("lpclassname$", 0&)
 
      'Activate the Application
      dummy = alias_SetActiveWindow(hWnd)
      dummy = alias_ShowWindow(hWnd, SW_SHOW)
 
      'Return True if Application Running, or False if not.
      AppActivateClass = hWnd
 
End Function
 

In module:

Declare Function alias_ShowWindow Lib "User" Alias "ShowWindow" _
     (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
 
    Declare Function alias_FindWindow Lib "User" Alias "FindWindow" _
     (ByVal lpclassname As String, ByVal lpCaption As Any) As Integer
 
    Declare Function alias_SetActiveWindow Lib "User" Alias _
      "SetActiveWindow" (ByVal hWnd As Integer) As Integer
 
    Const SW_SHOW = 9
 

I am keep getting error 53: File not Found 'User'

I have no idea what this error means and what file error has to do with this program?

Any ideas?

Thanks
Qi

Your API functions declarations are wrong.
It should be "Lib User32" instead of "Lib User". See full declarations HERE

[questionit]

dima69

I changed it to user32 from user, but now i get this error:

Cant find DLL entry point FindWindow in user32.

Adezii,

"AppActivateClass" that i use is a function that i have defined in the code - not a VB pre-defined function! What did you mean when you said this is not in the new versions?

Qi

Your API functions declarations are wrong.
It should be "Lib User32" instead of "Lib User". See full declarations HERE

[dima69]

dima69

I changed it to user32 from user, but now i get this error:

Cant find DLL entry point FindWindow in user32.

Adezii,

"AppActivateClass" that i use is a function that i have defined in the code - not a VB pre-defined function! What did you mean when you said this is not in the new versions?

Qi

This is the correct declaration for FindWindow:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

See the link in my previous post for the rest.

[Scott Price]

It looks like you are already using some copy'n'pasted code from this link: have a look at the bottom of the page, and you will see this applies to Microsoft Access 1.0, 1.1, and 2.0... If you are using another version of Access you'll have to update the code to fit the different version of VBA.

http://support.microsoft.com/?scid=k...4710&x=21&y=15

Regards,
Scott

[ADezii]

dima69

I changed it to user32 from user, but now i get this error:

Cant find DLL entry point FindWindow in user32.

Adezii,

"AppActivateClass" that i use is a function that i have defined in the code - not a VB pre-defined function! What did you mean when you said this is not in the new versions?

Qi

You are starting gto retrofit outdated Code and Declarations into a newer Version of Access and Windows. Start from scratch with the correct Function Declarations.