funktion skal køre når fom mister fokus

Hvad mener du med at du ikke kan fange musseklik?

//>Rune

Hmm du kunne fx. gøre sådan her..:

Private Sub Text1_LostFocus()
    Form1.Caption = "x"
End Sub

-men hvad er det der mister fokus?
//>Rune

Jeg vil gerne opdage når brugeren ikke længere bruger mit program
alt f.eks.
Private Sub Form1_LostFocus()
    Form1.Caption = "x"
End Sub

-det virker bare ikke!

Mystisk - virker det virkelig ikke. Er Form1_Lostfocus placeret i et modul eller en anden form, så den ikke er "synlig" for form1?

Nå, det jeg ville sige var bare, at du skal huske at rette tilbage når programmet får focus igen:

Private Sub Form1_GotFocus()
    Form1.Caption = "Y"
End Sub

:o)

Aha - fandt fejlen. Brug Activate og DeActivate i stedet for GotFocus og LostFocus  - så virker det!

Private Sub Form_Deactivate()
  Form1.Caption = "Form har IKKE focus"
End Sub

Private Sub Form_Activate()
  Form1.Caption = "Form HAR focus"
End Sub

ok tak!