|
 |
 |
 |
| |
Affecte une Hotkey à une feuille 
Paramètres en entrée : NomFeuille (form)
Paramètres en sortie : aucun
Description : permet d’affecter une Hotkey à une feuille
Exemple : HotKey Me affecte la Hotkey ALT+Z à la feuille où est appelée la procédure
' API pour la procédure HotKey
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
' 1 --> Shift , 41 -->A ==> &H141 : Shift + A
Public Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_SHIFTA = &H141 'Shift + A
Public Const HK_SHIFTB = &H142 'Shift + B
Public Const HK_CONTROLA = &H241 'Control + A
Public Const HK_ALTZ = &H45A 'Alt + Z
Public Sub HotKey(NomFeuille As Form)
'Mettre dans l'évenement Load
NomFeuille.WindowState = vbMinimized
erg& = SendMessage(NomFeuille.hwnd, WM_SETHOTKEY, HK_ALTZ, 0) 'ALT + Z
'Regarde si c'est bon
If erg& <> 1 Then
MsgBox "Vous devez choisir une autre combinaison", vbOKOnly, "ERREUR"
End If
erg& = DefWindowProc(NomFeuille.hwnd, WM_SHOWWINDOW, 0, 0)
End Sub
|
|
 |
|
 |
|
IDDN Certification
