If m.Msg = 786 Then
If m.Msg = 786 Then
End If
je n'arrive pas a la comprendre ça m.Msg = 786
il signifie quoi?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRegisterHotKey(Me.Handle, HOTKEY_ID2, FsModifiers.Windows , Keys.V)
RegisterHotKey(Me.Handle, HOTKEY_ID2, FsModifiers.Windows + FsModifiers.Control, Keys.V)
et si ne me trempe pas le raccourci Windows + V n'est pas un raccourci de Windows (il n'existe pas déjà)
et aussi j'ai fait des recherches dans mon moteur de recherche Google sur le racourci clavier Windows +V et je n'ai trouvé aucun résultat
est-ce que c'est différent pour chaque ordinateur? si c'est le cas, comment tu as su que c'était 91
Enum Options
Ctrl = &H2
Alt = &H1
Shift = &H4
Windows = &H8
Alt_Windows = &H9
Ctrl_Windows = &H10
Shift_Windows = &H12
End Enum
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = 786 Then
PictureBox1.BackColor = Color.Black
End If
MyBase.WndProc(m)
End Sub
Sub RegisterKey(ByVal Options As Options, ByVal Key As Keys)
RegisterHotKey(Me.Handle, 1, Options, CUInt(Key))
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RegisterKey(Options.Windows, Keys.A)
End Sub
Enum Options
Ctrl = &H2
Alt = &H1
Shift = &H4
Windows = &H8
Alt_Windows = &H9
Ctrl_Windows = &H10
Shift_Windows = &H12
End Enum
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = 786 Then
PictureBox1.BackColor = Color.Black
End If
MyBase.WndProc(m)
End Sub
Sub RegisterKey(ByVal Options As Options, ByVal Key As Keys)
RegisterHotKey(Me.Handle, 1, Options, CUInt(Key))
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RegisterKey(Options.Alt_Windows - Options.Alt, Keys.A)
End Sub
si les raccourci clavier de Windows ne peuvent pas être utiliser à nouveau dans le code