ShellLinkObject.Hotkey-Eigenschaft
Ruft die Tastenkombination für den Link ab oder legt diese fest.
Dies ist eine Eigenschaft mit Lese- und Schreibzugriff.
Syntax
iHotkey = ShellLinkObject.Hotkey
ShellLinkObject.Hotkey(iHotkey) = iHotkey
Eigenschaftswert
die Tastenkombination für den Link. Die virtuelle Tastenkombination befindet sich im Byte mit niedriger Reihenfolge, und die Modifiziererflags befinden sich im Byte in hoher Reihenfolge. Die Modifiziererflags können eine Kombination der folgenden Werte sein.
(1)
Umschalttaste
(2)
STRG-TASTE
(4)
ALT-TASTE
(8)
Erweiterter Schlüssel
Beispiele
Das folgende Beispiel zeigt die ordnungsgemäße Verwendung dieser Eigenschaft in JScript, VBScript und 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
Anforderungen
Anforderung | Wert |
---|---|
Unterstützte Mindestversion (Client) |
Windows 2000 Professional mit SP3 [nur Desktop-Apps] |
Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
Header |
|
IDL |
|
DLL |
|