Når mit program mister focus via Alt + Tab

Det er det event på formen der hedder LostFocus du skal implementere...

Det har jeg prøvet, men der sker ikke noget før jeg loader en anden Form. Hvis jeg bare skifter til f.eks. Word - sker der intet!!!

Det har du faktisk ret i. Jeg disabled ctrl-tab + ctrl-alt-delete sidst jeg havde problemet. Sorry....

Det har jeg også overvejet, men jeg ved jo det kan lade sig gøre...

Fill me in..  (så jeg får emails omkring sprgsmålet)

Er med på en kigger!!

Action.

Ok... Er der slet ingen der har nogle ideer?
Er vi mon ovre i noget Keypress, for at aktivere funktionen?

Hmm... Det kunne være =)  Tjekker det lige :)

Så fandt jeg svaret (på Alt-Tab)
Bemærk det kun er Alt-Tab.. så sig lige til hvis jeg også skal få den til at tjekke Ctrl+Esc, Ctrl-Alt-Del osv..





<<Declares>>

Private Declare Function Getasynckeystate Lib \"user32\" Alias \"GetAsyncKeyState\" (ByVal VKEY As Long) As Integer




<<indsæt i en timer ; interval = 100>>

If Getasynckeystate(vbKeyTab) <> 0 And Getasynckeystate(vbKeyMenu) <> 0 Then
MsgBox \"Nu skifter vi\"
End If

Det ser ud som noget der fungere. Men jeg får først tid til at prøve det i aften.

I\' be back

=)

Hej xafion

Tak for dit svar, det virker som forventet.
Hvad hedder kald af Ctrl, Esc og Del?

vbKeyControl  - Control
vbKeyEscape  - Escape
vbKeyDelete  - Delete
vbKeyMenu    - Alt
vbKeyTab      - Tab

Windows keys er strax værre. Dem må du eventuelt pille af eller lukke via reg keys. Hvis du har et keyboard med Windows taster har jeg en kode der kan gøre det. Da jeg ikke selv har et keyboard med dem kan jeg nemli ikke se om det virker, så derfor ville jeg blive meget glad hvis det var noget du kunne hjælpe mig med.

du skal altså indsætte

If Getasynckeystate(vbKeyControl) <> 0 And Getasynckeystate(vbKeyMenu) <> 0 And Getasynckeystate(vbKeyDelete) <> 0 Then

\'bla bla
End if

Du kan også se andre keys på
vbrun.KeyCodeConstants.
  - så skulle der gerne komme en lille liste frem

Læg bare koden op til Windows-tasterne - så prøver jeg den i aften.

[Disable windows hotkeys]
Key: [HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\
Policies\\Explorer]
Value Name: NoWinKeys
Data Type: REG_DWORD (DWORD Value)
Value Data: (0 = disable restriction, 1 = enable restriction)
*Kan ikke testes pga manglende hardware