Feedback

VB - Function zur Erstellung eines ShortCuts

Veröffentlicht von am 09.01.2007
(16 Bewertungen)
Shortcut auf dem Desktop erstellen. Entweder zur eigenen Anwendung oder auf eine Support Webseite ....
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

Function CreateShortCut(ByVal ShortCutTarget As String, _
                        ByVal ShortcutKey As String, _
                        ByVal ShortCutDescription As String) As Boolean

    Try
            ' Das Shell-Objekt des Windows Script Hosts erstellen.
            Dim WSHShell As Object = CreateObject("WScript.Shell")
            Dim DesktopDir As String = CType(WSHShell.SpecialFolders.Item("Desktop"), String)
            Dim Shortcut As Object

            'Verknüpfungen verfügen über die Erweiterung *.lnk (Link).
            'Diese muss mit angegeben werden
            Shortcut = WSHShell.CreateShortcut(DesktopDir & "\VS-SUPPORT.lnk")

            'es werden nun noch die Eigenschaften des Links festgelegt.
            '    Shortcut.TargetPath        = wohin verweist der ShortCut
            '    Shortcut.HotKey            = tastenkombination zum Aufruf des Links
            '    Shortcut.Description       = Beschreibung
            '    Shortcut.WorkingDirectory  = Arbeitsverzeichnis

            'Anlegen des ShortCut

            Shortcut.TargetPath = ShortCutTarget
            Shortcut.WindowStyle = 2
            Shortcut.Hotkey = ShortcutKey
            Shortcut.Description = ShortCutDescription
            Shortcut.WorkingDirectory = DesktopDir

            'Ein Icon zuweisen.
            'Entweder aus der Anwendung, aus einer Exe oder Dll Datei
            'Achtung:
            'Es wird mit 0 mit dem Zählen angefangen

            Shortcut.IconLocation = "explorer.exe, 0"

            ' Verknüpfungsdatei speichern.
            Shortcut.Save()

            MessageBox.Show("Der ShortCut wurde auf dem Desktop erstellt", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return True
     Catch ex As Exception
         Return False
         MessageBox.Show("Der ShortCut auf dem Desktop konnte nicht erstellt werden. " & vbCrLf & _
                         ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Information)

     End Try

End Function

'Aufruf

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CreateShortCut("http://www.vs-support.com", "CTRL+SHIFT+S", "VS-SUPPORT")
End Sub
Abgelegt unter ShortCut, Verknüpfung, Desktop.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!