Win+ Taste per VBA
22.01.2022 10:27:29
Oraculix
In meiner Userform1 möchte mit einem Comandbutton die Windows Bildschirmlupe aufrufen.
Leider Funktioniert dieser
VBA Code unter Windows 11 nicht.
Frage: Wie kann ich per Comandbutten in der Userform1 die Bildschirmlupe aufrufen?
Tastenkürzel Win + Plus
Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Const plus = &H6B
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call keybd_event(VK_LWIN, 0, 0, 0) 'Windows Taste
Call keybd_event(plus, 0, 0, 0)
End Sub
Oraculix