ypothier
Messages postés80Date d'inscriptionvendredi 4 janvier 2002StatutMembreDernière intervention22 janvier 2007
-
8 janv. 2002 à 20:04
cs_algori
Messages postés868Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention26 février 2008
-
30 janv. 2005 à 20:01
Comment je fais un raccourci clavier ??? Comme lorsqu'on appuie sur "CTRL+S" dans word, ca permet de sauvegarder. Présentement, j'utilise "self.event.keyCode", mais ce code renvoie seulement le code ascii de la touche appuyé, il ne retourne rien si l'usager appuie sur "CTRL+W".
cs_algori
Messages postés868Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention26 février 20081 30 janv. 2005 à 20:01
Je sais pas si ça t'intéresse :
Dim shell, fso, d, lnkp, lnk
Set shell = CreateObject("WScript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
d = shell.SpecialFolders("Desktop")
lnkp = fso.BuildPath(d, "Notepad.lnk")
Set lnk = shell.CreateShortcut(lnkp)
With lnk
.TargetPath = "Notepad.exe"
.WindowStyle = 1
.Hotkey = "CTRL + L"
.IconLocation = "Notepad.exe, 0"
.Description = "Raccourci vers le Bloc-Notes"
.WorkingDirectory = d
.Save
End With
Hotkey te permet d'affecter des touches raccourci pour un programme.
Espérons que cela puisse t'aider...
@++