Verstecken, wiederherstellen?

[Orakel]

Moin zusammen,

*ggg* Sonntags brauch ich immer etwas länger bis ich fit bin


Code:

Private Const VK_LWIN As Long = &H5B
Private Const VK_SHIFT As Long = &H10


Private Sub Timer1_Timer()
  'If GetAsyncKeyState(VK_LWIN) <> 0 Then 
  'If KeyCode = vbKeyShift Then 
  If GetAsyncKeyState(VK_SHIFT) <> 0 Then
    Me.Show
  End If
End Sub

In der Timerfunktion musst Du schon mit GetAsyncKeyState arbeiten, da Dein Programm ja nun nicht mehr den Fokus hat. Um dennoch Tastendrücke abfragen zu können, gibt es diese API Funktion.

Hope it helps
Das Orakel

 

[DeathlyGothSoul]

Oh cool jetzt klappts!

Danke dir!

Danke euch allen ^.^'

MfG,
DeathlyGothSoul