Detect Lost Focus

Hi,

I got problem here.
I have FRAME control, on this frame got many other object (textbox, listview, etc).
This FRAME will popup when user click commandbutton on FORM1.

My question is how to close this FRAME (make it invisible)
1. When user click outside the FRAME
2. When user hit esc key, while cursor can be on one of control on the FRAME

I'm try to duplicate what standard combobox do, but adding some advanced function.

Please help guys.

try to word your ?'s better for more responses, i can only understand half of what your asking. :duck:

Private Sub Command1_Click()
Form2.Show 'This Button is on form1
Unload Form1 'OR Form1.Hide
End Sub

Sorry, my english are very poor

Im not sure what this does, but i know it works

Private Sub form_LostFocus()

End Sub


i tried and could not get the form to loose focus

Hi,

No Triple, FRAME is on the same FORM of commandbutton.

Private Sub Command1_Click()
Frame1.Visible = False
'OR Form2.Frame1.Visible = False
End Sub

Private Sub Form_Click()
Frame1.Visible = False

End Sub

Hi,

Triple,
User can click anywhere they like, and my form are many. I can't code them all one by one :(

everyone please.
I attached simple example what i want.
When user click outside the frame1, i want to hide frame1

i dont mean to be rude, But did you try this code???????

Private Sub Form_Click()
Frame1.Visible = False

End Sub

Try this example, code is also commented. this is what i think you want
I have done everything but #2 for you. when it comes to that, you might want to use the keydown or keypress event and then check to see if the ESC has been pressed, if it has, then to .SetFocus on the control that you want it to have the cursor in

Quote:

---

Originally Posted by barianto

Hi,

I got problem here.
I have FRAME control, on this frame got many other object (textbox, listview, etc).
This FRAME will popup when user click commandbutton on FORM1.

My question is how to close this FRAME (make it invisible)
1. When user click outside the FRAME
2. When use hit esc key, while cursor can be on one of control on the FRAME

I'm try to duplicate what standard combobox do, but adding some advanced function.

Please help guys.

---

Hi,

Triple, i try that...
Please see my attachment, hope you can understand what i want to achieve is.

for #2, i would have thought the following would work but doesnt for me:

VB Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'if the ESC key has been pressed then .SetFocus on the textbox :)
    If KeyCode = vbKeyEscape Then
        Text1.SetFocus
    End If
End Sub

Quote:

---

Originally Posted by barianto

Hi,

Triple, i try that...
Please see my attachment, hope you can understand what i want to achieve is.

---

see post #10 for a working example (except for #2 hasnt been added)

Thanks, Braille

It kind of what i want to achieve, but user can click anywhere on form which have many other control. Even they can click on toolbar or menu of my application. Or user can click other application or "START" button of "WINDOWS" or else.
But to make thing much more easier, i'm ignored the possibility of user click other application (it's okay the frame still show up when they click outside my application).

Please apologize my english :)

What about putting your entire Frame inside a Picture box?

then useing the Lost Focus sub of the picture box to make the item disapear?

you would still need to put the code into the form click sub. For some reason you can't make the form gain focus by clicking on it. Though if there are any other Textbox/Commandbutton/controls on the form, they will be the item that gains focus.

VB Code:

Private Sub Form_Click()
  Picture1.Visible = False
  'or
  Picture1.Hide
End Sub
 
Private Sub Picture1_LostFocus()
  Picture1.Visible = False
  'or
  Picture1.Hide
End Sub

EDIT!!!!!
NEVERMIND.

It doesn't work, because if there are items in the frame that gain focus, the picturebox will disapear.

That's it rack.
That's the same problem i got :)

Bump

Anyone please??

Quote:

---

Originally Posted by barianto

Bump

Anyone please??

---

why do you want this to happen when you click anywhere on the app/computer? seems a little over board to me.

Well i'm try to "overwrite" what combobox do but still with the same behaviour of combobox.
what i mean by "overwrite" is when dropdown button combobox been click, a FRAME with many other control on it popup.

Actually i can do it when the popup form is not FRAME but another FORM. But i don't like it, because for every combobox i'm going to "overwrite" i need one FORM or very complicated one FORM (if i have 10 combobox need to overwrite i have to have 10 procedure with differrent control on each procedure).

It's alright to ignored the possibility user click other/outside application.

Please see attachment

this might be sufficient for you.

Add a timer to your form, set the Interval property to 1 and enabled to False.

Then use this code in your form:

VB Code:

Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
Private Sub Combo1_DropDown()
    If Frame1.Visible Then
        Frame1.Visible = False
    Else
        Frame1.Visible = True
        Frame1.Move Combo1.Left, Combo1.Top + Combo1.Height + Screen.TwipsPerPixelY
        Text1.SetFocus
        Timer1.Enabled = True
    End If
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Frame1.Visible Then Frame1.Visible = False: Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
    Dim bVisible As Boolean
    bVisible = GetForegroundWindow = Me.hWnd
    If bVisible Then bVisible = Me.ActiveControl Is Frame1 Or _
                                Me.ActiveControl.Container Is Frame1
    Frame1.Visible = bVisible: Timer1.Enabled = bVisible
End Sub

Hi,

bushmobile, try your code. The frame show up for about a second then close again.
Something i wrong maybe? And one thing the FORM where FRAME show up is MDI Child, is it any affect?

have you definitely set the Enabled property of the timer to False at design time?

Not sure if this is any help, but i'd thought i'd try

VB Code:

Dim Opening As Boolean
Sub OpenCombo()
    If Opening Then Exit Sub
    Opening = True
    For Y = Frame1.Top To 0 Step 1
        Frame1.Top = Y
        DoEvents
        If Opening = False Then Exit Sub
    Next
End Sub
 
Sub CloseCombo()
    If Opening = False Then Exit Sub
    Opening = False
    For Y = Frame1.Top To (-Frame1.Height + 10) Step -1
        Frame1.Top = Y
        DoEvents
        If Opening Then Exit Sub
    Next
End Sub
 
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
CloseCombo
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
OpenCombo
End Sub

Yes
I set it to false at design time.

Quote:

---

Originally Posted by barianto

Yes
I set it to false at design time.

---

:ehh:

I've attached it.

Andrew,

I only wanna FRAME to disapear when USER click mouse outside FRAME.
Your method above make FRAME disapear when mouse move away from FRAME.

Thanks Andrew.

bushmobile,

your attachment working the way i want.
But still when i try it in my project, it didn't work.

In the Frame1 event mousemove i have code to move Frame1 like this

VB Code:

'declaration 
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
 
 
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
    ReleaseCapture
    SendMessage Frame1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

is this have affect?

Change

VB Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
CloseCombo
End Sub

to

VB Code:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
CloseCombo
End Sub

Either way it requires that the form is clicked, which may not happen if it contains many controls. Its best to use Bushmobile's method

Yes Andrew, bushmobile method should working fine.
Just don't why when i put it on my project, it's show a second then gone.

Quote:

---

Originally Posted by barianto

bushmobile,

your attachment working the way i want.
But still when i try it in my project, it didn't work.

In the Frame1 event mousemove i have code to move Frame1 like this

VB Code:

'declaration 
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
 
 
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
    ReleaseCapture
    SendMessage Frame1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

is this have affect?

---

Are you sure you mean for that code to be in the MouseMove event?

I couldn't get it to move the frame for some reason - I don't see why it should effect it.

Anyway - the use of a timer for assessing whether the Frame should be visible or hidden was just an idea you can play around with an expand on. Somebody else might come up with something better.

bushmobile
Actualy the frame was not standard Frame, it's third party OCX. When using standard frame, that code doesn't have effect.

I modified your attachment code, with this third party FRAME, it still work.
I forget to mention, i'm using codejock commandbar which refresh itself each 180 milisecond. Perhaps this have effect.....

Ahhh.

Since you're using third-party ocx's it makes in nigh-on impossible for someone to provide an answer that will definitely work, since they can't (and probably won't go through the effort to) test it for themselves - and they won't know how the control will react.

What you'll have to do is take the ideas suggested here (or anywhere else you might see an idea) - make sure you understand what they're doing and then try to apply them to your situation and current code.

I guest you are correct bushmobile :)

But as i mentioned before your code work too using FRAME by third party ocx. It's not working when combine with another third party Ocx (codejock Commandbar, i assume because it have timer to refresh itself).

While i'm working it out I'm still hope someone can help to solve my problem.
Thanks bushmobile.

Hi,
sorry to bring this up again, since i don't found solution yet :(.

bushmobile, it's not my third party component make you code flash a second and gone.
But because i'm working it on mdi Child. I'm already test it.
Can you check it out, please....

I also attached, MDI version of your sample.

ahhh, you're using a MDIForm, that makes sense then, as this will never be true (a child window can never be the foreground window):

VB Code:

GetForegroundWindow = Me.hWnd

I have also added another check to see if the form is the currently active MDIChild:

VB Code:

Private Sub Timer1_Timer()
    If MDIForm1.ActiveForm Is Me Then
        If Me.ActiveControl Is Frame1 Or Me.ActiveControl.Container Is Frame1 Then
            If GetForegroundWindow = MDIForm1.hWnd Then Exit Sub
        End If
    End If
    Frame1.Visible = False: Timer1.Enabled = False
End Sub

hi,

bushmobile, your code working great.
It just need a little bit tweak.
When USER click on control that doesn't have focus like LABEL or FORM we still need to code it on each that LABEL or FORM.

Thank you very much bushmobile, you save my day.

hmmm, regarding the Form, the code in the MouseDown event shold handle that.

regarding the label, i can't think of any generic solution, other than coding each _Click event. Or perhaps setting the label's background to transparent, might event what you're label looks like though.

Setting label background to transparent doesn't have effect bush.

But i can live with it. :)

i thought setting the background to transparent would allow the clicks to pass through - it seems it doesn't :S

have your labels as a control array, then you'll only need to code the _click event once

This would be a little odd...
But you could set your Form_LostFocus event to close the frame......

Add the code from this Post
http://www.vbforums.com/showthread.php?t=417794
And set the background of other items to that Blue, or another color (transparent and click through)

OR!!!

Set each of the items INSIDE your frame to make a variable=false

VB Code:

Global FocusReallyLost as Boolean
 
FocusReallyLost=False
 
Private Sub AnyItemInForm_GotFocus()
  FocusReallyLost=true
End Sub
 
Private Sub Picture1_LostFocus()
  If FocusReallyLost=True Then
    Picture1.hide ' or Picture1.visible=false
  End If
End Sub

If that doesn't work, it sounds like, your just going to have to set up the click events in all objects outside that frame to close the frame on click.


EDIt:
Is there a way to check what is going to Receive the focus?
Seams odd, maybe there is an API way to getting into detail about when something loses focus, and what is receiving, before you let the picture disapear.

yes bushmobile, i set all my label array so it only have one click code.

rack:
perhaps there is, we just don't know yet. :)

Check out this from vbAccelerator. It should allow you to do what you want.

bush, vbaccelerator method is using FORM.
While i'm trying to avoid using FORM :)

In your opinion, what is best method to popup window?
using FORM with show as modal or using object on the same FORM with combobox behaviour?
If your preferred method is using FORM how to avoid created so many FORM for each popup windows?

Add the attached module to your project. Now all you have todo is to add the following code to the click event of your button (when you want to show the Frame).

VB Code:

Private Sub Command1_Click()
    Call HookMouse(Me.hWnd, Frame1.hWnd)
End Sub

You don't even have to set the Visible property of the Frame to True, everything is handled by the attached code which uses a hook to detect mouse operations within your application and it also subclasses your app to detect if another application gains focus. If the mouse is pressed anywhere inside your application the frame will be hidden, the same happens if your application loses focus.

To handle the Esc key set the KeyPreview property of the Form to True and add this code:

VB Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        UnhookMouse
    End If
End Sub

it work like magic joacim :)
Thanks.