Hallo Zusammen,
ich möchte, dass über ein Button im Formular ( A 2003 ) der Befehl "Desktop anzeigen" ausgeführt wird.
Hat jemand eine Lösung?
Danke im vorraus
Hallo,
z. B.:
in ein Standardmodul legen:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub ToggleDesktop()
keybd_event &H5B, 1, 0, 0
keybd_event Asc("D"), 1, 0, 0
keybd_event Asc("D"), 1, &H2, 0
keybd_event &H5B, 1, &H2, 0
End Sub
Aufruf:
Sub btnDesktop_Click()
ToggleDesktop
End Sub