IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

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
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel