We help IT Professionals succeed at work.

Forms Acitvation

Avi082798
Avi082798 asked
on
Medium Priority
264 Views
Last Modified: 2010-04-30
How can i open a vb form that can't get focus? (working with vb5 SP3,Win95)
Comment
Watch Question

I'm kind of confused on what you are trying to achieve?  You have a form that "Can't" get focus or you don't want it to get the focus when you load it?  Can you expand on you situation a little bit?

Commented:
Once you show the form, it can get focus via mouse selection, but you can place event logic in the gotfocus event to shift focus back to another form, if that helps you any.  

Commented:
Try this:

' 1. In the general declaration area of your form (say form2 is the one you don't want focus), add:
Private Declare Function GetForegroundWindow Lib "user32" () As Long

'              2. drop a timer to your form (form2), set the interval to 5 (you can adjust this).
             
               3. In the form2_gotfocus Event, add: Timer1.enabled = True

'              3. in the timer1_timer event, add:
             Timer1.Enabled = false
'            If GetForegroundWindow() = Me.hWnd Then Form1.Show (or what ever form you want focus to be on)
'              This will give away focus in 10 milliseconds

Regards
Dalin

Author

Commented:
This won't work because the form will filcker. And that's the one thing i don't want. But Thanks anyway.

Regards
Avi
I am assuming you are talking about a Form with the enabled property set to False.

Here's what I tried:

A project with two forms, Form1 and Form2.  A command button on Form1.  Enabled set to False on Form2.

Code in Form2:

Option Explicit

Public Sub ShowMe(frmCalling As Form)
    Me.Show vbModeless
    frmCalling.SetFocus
End Sub

Code in Form1:

Private Sub Command1_Click()
    Form2.ShowMe Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
   
    For i = 1 To Forms.Count - 1
        If Forms(i).Caption = "Form2" Then
            Unload Form2
        End If
    Next i
End Sub

I'm not sure this is what you want, but what I've basically done is put a method in Form2 that shows itself and returns focus to whatever form wants it opened.  The Unload event in Form1 is clean up to unload Form2 if it has been opened.  If you don't do this, the app won't terminate.


Sorry, I noticed an error in my proposed solution.  In Form_Unload, i should go from 0 to Forms.Count - 1.

Author

Commented:
Thanks, but it wont do it for me, your sample flickers and thats what i don't want.
I'm not sure what you mean by "flickers".  I noticed that the previous solution allows you to click and momentarily give focus to the window which flashs the title bar from blue to gray.  Didn't notice that on my solution.  But, again, I guess I don't know what "flickers" means.
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.