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]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

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!