Form SetFocus

Madhivanan · #1 (**permalink**) 07-01-04, 02:58

Hai,
I am developing a VB Application. I want to make it visible and invisible according to the records in the table. I use MS Access2000. I use a table which has the field Signature which is of type OLE Object which I use it to store images. I load that image in the inkdata control and do screen capture and update the status of that record as captured. I am doing this in a timer event. My idea is that if there is no record to be captured the application should be invisible and if new record is added then it should become visible and capture the image and become invisible. This works well. But the problem is that after becoming invisible,the focus is not in the application if the application becomes visible. I have to click the application icon in the status bar to make it focus. Is there a way to make it focussed?

Thanks for any helps
Madhivanan

SCIROCCO · #2 (**permalink**) 07-05-04, 09:06

You must use an API call. Here is a code example:

Code:

Private Const SWP_SHOWWINDOW = &H40

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

Private Declare Function _
        ShowWindow Lib "user32" _
        (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

Private sub LooseFocus()
    AppHandle As Long

    AppHandle= FindWindow(vbNullString, "Calculator")
    ShowWindow AppHandle, SW_SHOWNORMAL
End Sub

Madhivanan · #3 (**permalink**) 07-06-04, 01:20

Thanks for your reply. When I am working with other applications the VB application window is not in focus. Still I have a problem.

Madhivanan

Internet Services

Web Development

Digital Marketing

Consumer Tech