Propriété ShellLinkObject.Hotkey
Obtient ou définit le raccourci clavier du lien.
Cette propriété est en lecture/écriture.
iHotkey = ShellLinkObject.Hotkey
ShellLinkObject.Hotkey(iHotkey) = iHotkey
raccourci clavier du lien. Le raccourci clavier virtuel est dans l’ordre inférieur et les indicateurs de modification sont dans l’octet d’ordre élevé. Les indicateurs de modification peuvent être une combinaison des valeurs suivantes.
(1)
Touche MAJ
(2)
Touche CTRL
(4)
touche ALT
(8)
Clé étendue
L’exemple suivant montre l’utilisation appropriée de cette propriété dans JScript, VBScript et Visual Basic.
Jscript:
<script language="JScript">
function fnShellShellLinkObjectHotkeyJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
var objFolderItem;
objFolderItem = objFolder.ParseName("Internet Explorer.lnk");
if (objFolderItem != null)
{
var objShellLink;
objShellLink = objFolderItem.GetLink;
if (objShellLink != null)
{
var nHotkey;
// Get the keyboard shortcut for the ShellLinkObject.
nHotkey = objShellLink.Hotkey;
alert(nHotkey);
// Set the keyboard shortcut for the ShellLinkObject.
objShellLink.Hotkey = 4;
}
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnShellLinkObjectHotkeyVB()
dim objShell
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objShell = CreateObject("shell.application")
set objFolder = objShell.NameSpace(ssfPROGRAMS)
if (not objFolder is nothing) then
dim objFolderItem
set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
if (not objFolderItem is nothing) then
dim objShellLink
set objShellLink = objFolderItem.GetLink
if (not objShellLink is nothing) then
dim nHotkey
'Get the keyboard shortcut for the ShellLinkObject.
nHotkey = objShellLink.Hotkey
alert(nHotkey)
'Set the keyboard shortcut for the ShellLinkObject.
objShellLink.Hotkey = 4
end if
set objShellLink = nothing
end if
set objFolderItem = nothing
end if
set objFolder = nothing
set objShell = nothing
end function
</script>
Visual Basic :
Private Sub fnShellLinkObjectHotkeyVB()
Dim objShell As Shell
Dim objFolder As Folder
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
If (Not objFolderItem Is Nothing) Then
Dim objShellLink As ShellLinkObject
Set objShellLink = objFolderItem.GetLink
If (Not objShellLink Is Nothing) Then
Dim nHotkey As Integer
'Get the keyboard shortcut for the ShellLinkObject.
nHotkey = objShellLink.Hotkey
Debug.Print nHotkey
'Set the keyboard shortcut for the ShellLinkObject.
objShellLink.Hotkey = 4
End If
Set objShellLink = Nothing
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows 2000 Professionnel avec SP3 [applications de bureau uniquement] |
Serveur minimal pris en charge |
Windows 2000 Server [applications de bureau uniquement] |
En-tête |
|
IDL |
|
DLL |
|