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]

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

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!