Hinzufügen von Hyperlinks zur Schnellstartleiste

Artikel
09/24/2014

Letzte Änderung: Mittwoch, 20. Oktober 2010

Gilt für: SharePoint Foundation 2010

Inhalt dieses Artikels
Navigieren in der Menüstruktur
Hinzufügen eines Elements unter einer integrierten Menüüberschrift
Angeben der Position im Menü
Hinzufügen einer benutzerdefinierten Menüüberschrift

In einer Microsoft SharePoint Foundation-Website handelt es sich bei der Schnellstartleiste um das statische Menü am linken Rand der meisten Inhaltsseiten. Beim SharePoint Foundation-Objektmodell wird das Schnellstartmenü als eine Hierarchie von SPNavigationNode-Objekten repräsentiert, wobei jedes Objekt einen Hypertextlink im Menü darstellt.

Zum Hinzufügen eines neuen Hyperlinks zum Schnellstartmenü müssen Sie ein Objekt für den Hyperlink erstellen und es anschließend an der richtigen Stelle in der Hierarchie hinzufügen.

Navigieren in der Menüstruktur

Auf der obersten Ebene des Schnellstartmenüs befinden sich die Menüüberschriften. Zum Abrufen der Auflistung von Menüüberschriften rufen Sie zunächst das Objekt ab, das von der Navigation-Eigenschaft der Website zurückgegeben wird, und anschließend die QuickLaunch-Eigenschaft dieses Objekts. Die QuickLaunch-Eigenschaft gibt ein SPNavigationNodeCollection-Objekt zurück, das die SPNavigationNode-Objekte für die Menüüberschriften enthält.

SPNavigationNodeCollection ql = web.Navigation.QuickLaunch;

Dim ql As SPNavigationNodeCollection = web.Navigation.QuickLaunch

Auf der nächsten Ebene darunter befinden sich die Elemente unterhalb der Menüüberschriften. Jedes SPNavigationNode-Objekt, das eine Menüüberschrift darstellt, weist eine Children-Eigenschaft auf, die eine Auflistung von Knoten enthalten kann, welche Elemente unter einer Menüüberschrift repräsentieren. Falls unter einer Menüüberschrift keine Elemente vorhanden sind, gibt die Children-Eigenschaft des Menüüberschriftenknotens eine leere Auflistung zurück.

foreach (SPNavigationNode heading in web.Navigation.QuickLaunch)
{
    foreach (SPNavigationNode item in heading.Children)
    {

        // Do something.
    }
}

For Each heading As SPNavigationNode In web.Navigation.QuickLaunch
    For Each item As SPNavigationNode In heading.Children

        ' Do something.
    Next
Next

Die Menüüberschrift und die Elemente darunter sind SPNavigationNode-Objekte, die Hypertextlinks darstellen. Der für jeden Hyperlink angezeigte Text ist in der Title-Eigenschaft des Objekts gekapselt, und die URL des Hyperlinks ist in der Url-Eigenschaft des Objekts enthalten. Die Werte für diese Eigenschaften sind unabhängig vom Ziel des Hyperlinks. Wenn der Hyperlink auf eine Website zeigt und der Titel oder die URL der Website geändert wird, werden der Titel und die URL im Navigationsknoten nicht ebenfalls automatisch geändert.

Standardmäßig ist das Schnellstartmenü so konfiguriert, dass nur zwei Ebenen angezeigt werden. Sie können das Schnellstartmenü anpassen, sodass zusätzliche Ebenen im statischen Menü oder in den Flyoutmenüs angezeigt werden. Weitere Informationen finden Sie unter Gewusst wie: Anpassen der Anzeige der Schnellstartleiste.

Hinzufügen eines Elements unter einer integrierten Menüüberschrift

Rufen Sie zum Einfügen eines Hyperlinks unter einer der standardmäßigen Menüüberschriften in der Schnellstartleiste, wie z. B. Listen oder Bibliotheken, die AddToQuickLaunch-Methode auf. Für diese Methode sind die folgenden beiden Argumente möglich: ein SPNavigationNode-Objekt, das den neuen Hyperlink darstellt, und ein SPQuickLaunchHeading-Enumerationswert für die Menüüberschrift, für die der Hyperlink eingerichtet werden soll.

Die AddToQuickLaunch-Methode befindet sich in der SPNavigation-Klasse, von der durch die Navigation-Eigenschaft der SPWeb-Klasse eine Instanz zurückgegeben wird.

So fügen Sie ein Element unter einer integrierten Menüüberschrift hinzu

(Optional) Suchen Sie nach einem vorhandenen Hyperlink zum selben Ziel, indem Sie die GetNodeByUrl-Methode des Objekts aufrufen, das von der Navigation-Eigenschaft der Website zurückgegeben wird.

Wenn die Navigationsstruktur der Website keinen Hyperlink enthält, der auf die URL verweist, wird von der GetNodeByUrl-Methode null zurückgegeben.

Erstellen Sie einen Knoten zur Darstellung des Hyperlinks, indem Sie einen der Konstruktoren für die SPNavigationNode-Klasse aufrufen.

Die Klasse weist zwei Konstruktoren auf:

Für den ersten Konstruktor sind zwei Argumente möglich: eine Zeichenfolge, die den anzuzeigenden Text für den Hyperlink enthält, sowie eine weitere Zeichenfolge, die die URL enthält, die vom Hyperlink aufgelöst werden soll. Verwenden Sie diesen Konstruktor nur für interne Hyperlinks, also Hyperlinks zu Inhalt in derselben Websitesammlung. Die URL sollte serverrelativ sein.
Für den zweiten Konstruktor sind drei Argumente möglich. Die ersten beiden Argumente sind identisch wie beim anderen Konstruktor. Das dritte Argument ist ein boolean-Wert, der angibt, ob es sich um einen externen oder internen Hyperlink handelt. Übergeben Sie true für einen Hyperlink zu einer externen Website, und übergeben Sie eine absolute URL im zweiten Argument. Bei einem internen Hyperlink übergeben Sie false und eine serverrelative URL.

Hinweis
Ein SPNavigationNode-Objekt wird erst vollständig initialisiert, wenn es einer Sammlung hinzugefügt wurde. Wenn das Objekt noch nicht Mitglied einer Sammlung ist, wird von schreibgeschützten Eigenschaften wie Id und ParentId die Zeichenfolge null zurückgegeben.

Rufen Sie die AddToQuickLaunch-Methode auf, und übergeben Sie den neuen Knoten als erstes Argument sowie einen SPQuickLaunchHeading-Enumerationswert als zweites Argument.

Die AddToQuickLaunch-Methode gibt eine initialisierte Instanz der SPNavigationNode-Klasse zurück. Mit diesem Objekt können Sie andere Eigenschaften des Knotens abrufen und festlegen. Sie müssen die Update-Methode aufrufen, nachdem Sie Eigenschaften des Objekts geändert haben.

Hinweis
Dem Schnellstartmenü fügen Sie am schnellsten eine vorhandene Liste oder Dokumentbibliothek hinzu, indem Sie ein SPList-Objekt zur Darstellung der Liste oder Bibliothek abrufen und anschließend die OnQuickLaunch-Eigenschaft auf true festlegen. Ein Element für die Liste oder Bibliothek wird automatisch unter der entsprechenden Menüüberschrift hinzugefügt. Weitere Informationen zu Menüüberschriften in der Schnellstartleiste finden Sie im Abschnitt zur SPQuickLaunchHeading-Enumeration. Falls die Menüüberschrift noch nicht im Schnellstartmenü angezeigt wird, wird sie hinzugefügt.

Dem Schnellstartmenü fügen Sie am schnellsten eine vorhandene Liste oder Dokumentbibliothek hinzu, indem Sie ein SPList-Objekt zur Darstellung der Liste oder Bibliothek abrufen und anschließend die OnQuickLaunch-Eigenschaft auf true festlegen. Ein Element für die Liste oder Bibliothek wird automatisch unter der entsprechenden Menüüberschrift hinzugefügt. Weitere Informationen zu Menüüberschriften in der Schnellstartleiste finden Sie im Abschnitt zur SPQuickLaunchHeading-Enumeration. Falls die Menüüberschrift noch nicht im Schnellstartmenü angezeigt wird, wird sie hinzugefügt.

Beispiel

Mit der folgenden Konsolenanwendung wird unter der Menüüberschrift Listen in der Schnellstartleiste ein Element hinzugefügt.

using System;
using Microsoft.SharePoint;
using Microsoft.SharePoint.Navigation;

namespace ConsoleApp
{
    class Program
    {
        static void Main(string[] args)
        {
            using (SPSite site = new SPSite("https://localhost"))
            {
                using (SPWeb web = site.OpenWeb())
                {
                    // Get the Links list or create it if it does not exist.
                    SPList list = web.Lists.TryGetList("Links");

                    if (list == null || list.BaseTemplate != SPListTemplateType.Links)
                    {
                        // Create the list.
                        Guid listId = web.Lists.Add("Links", "Interesting hyperlinks", SPListTemplateType.Links);
                        list = web.Lists.GetList(listId, false);
                    }

                    // Check for an existing link to the list.
                    SPNavigationNode listNode = web.Navigation.GetNodeByUrl(list.DefaultViewUrl);
 
                    // No link, so create one.
                    if (listNode == null)
                    {
                        // Create the node.
                        listNode = new SPNavigationNode(list.Title, list.DefaultViewUrl);

                        // Add it to Quick Launch.
                        listNode = web.Navigation.AddToQuickLaunch(listNode, SPQuickLaunchHeading.Lists);
                    }
                }
            }
            Console.Write("\nPress ENTER to continue....");
            Console.ReadLine();
        }
    }
}

Imports System
Imports Microsoft.SharePoint
Imports Microsoft.SharePoint.Navigation

Module ConsoleApp

    Sub Main()

        Using site As New SPSite("https://localhost")

            Using web As SPWeb = site.OpenWeb()

                ' Get the Links list or create it if it does not exist.
                Dim list As SPList = web.Lists.TryGetList("Links")

                If list Is Nothing OrElse list.BaseTemplate <> SPListTemplateType.Links Then

                    ' Create the list.
                    Dim listId As Guid = web.Lists.Add("Links", "Interesting hyperlinks", SPListTemplateType.Links)
                    list = web.Lists.GetList(listId, False)
                End If

                ' Check for an existing link to the list.
                Dim listNode As SPNavigationNode = web.Navigation.GetNodeByUrl(list.DefaultViewUrl)

                ' No link, so create one.
                If listNode Is Nothing Then

                    ' Create the node.
                    listNode = New SPNavigationNode(list.Title, list.DefaultViewUrl)

                    ' Add it to Quick Launch.
                    listNode = web.Navigation.AddToQuickLaunch(listNode, SPQuickLaunchHeading.Lists)
                End If

            End Using

        End Using

        Console.Write(vbCrLf & "Press ENTER to continue....")
        Console.Read()
    End Sub

End Module

Angeben der Position im Menü

Mit der im vorherigen Abschnitt beschriebenen AddToQuickLaunch-Methode wird ein neuer Hyperlink als letztes Element unter der angegebenen Menüüberschrift im Schnellstartmenü hinzugefügt. Die Position des Hyperlinks können Sie mit einer der Methoden in der SPNavigationNodeCollection-Klasse präziser steuern. In der folgenden Tabelle werden diese Methoden kurz beschrieben.

Methode	Beschreibung
Add	Fügt einen neuen Knoten nach dem angegebenen Knoten in der Auflistung hinzu.
AddAsFirst	Fügt einen neuen Knoten als ersten Knoten in der Auflistung hinzu.
AddAsLast	Fügt einen neuen Knoten als letzten Knoten in der Auflistung hinzu.

Im folgenden Verfahren wird erläutert, wie Sie mithilfe der Add-Methode einen Hyperlink direkt nach einem angegebenen Element im Schnellstartmenü hinzufügen.

So fügen Sie einen Hyperlink nach einem vorhandenen Element im Menü hinzu

Rufen Sie den Knoten für die Menüüberschrift ab, unter der Sie den Hyperlink platzieren möchten, indem Sie die GetNodeById-Methode der SPNavigation-Klasse aufrufen.

// Get the Libraries heading.
SPNavigationNode heading = web.Navigation.GetNodeById((int)SPQuickLaunchHeading.Documents);

' Get the Libraries heading.
Dim heading As SPNavigationNode = web.Navigation.GetNodeById(CInt(SPQuickLaunchHeading.Documents))

Rufen Sie den Knoten für das Element ab, nach dem Sie den Hyperlink platzieren möchten, indem Sie die von der Children-Eigenschaft des Menüüberschriftenknotens zurückgegebene Auflistung abfragen.

// If a node for Shared Documents exists, the new node will go after it.
SPList sharedDocs = web.Lists.TryGetList("Shared Documents");
SPNavigationNode sharedDocsNode = null;
if (sharedDocs != null)
    sharedDocsNode = librariesHeading
        .Children
        .Cast<SPNavigationNode>()
        .FirstOrDefault(n => n.Url == sharedDocs.DefaultViewUrl);

' If a node for Shared Documents exists, the new node will go after it.
Dim sharedDocs As SPList = web.Lists.TryGetList("Shared Documents")
Dim sharedDocsNode As SPNavigationNode = Nothing
If sharedDocs IsNot Nothing Then
    sharedDocsNode = librariesHeading.Children.Cast(Of SPNavigationNode)().FirstOrDefault( _
        Function(n) n.Url = sharedDocs.DefaultViewUrl)
End If

Erstellen Sie ein SPNavigationNode-Objekt, das den neuen Hyperlink repräsentiert.

SPNavigationNode newNode = new SPNavigationNode(list.Title, list.DefaultViewUrl);

Dim newNode As SPNavigationNode = New SPNavigationNode(list.Title, list.DefaultViewUrl)

Fügen Sie den Hyperlink hinzu, indem Sie die Add-Methode aufrufen und den neuen Konten als erstes Argument sowie den Knoten, nach dem dieser Knoten hinzugefügt werden soll, als zweites Argument übergeben.
```
newNode = heading.Children.Add(newNode, sharedDocsNode);
```
```
newNode = heading.Children.Add(newNode, sharedDocsNode)
```

Hinweis
Ein SPNavigationNode-Objekt wird erst vollständig initialisiert, wenn es einer Sammlung hinzugefügt wurde. Wenn das Objekt noch nicht Mitglied einer Sammlung ist, wird von schreibgeschützten Eigenschaften wie Id und ParentId die Zeichenfolge null zurückgegeben.

Beispiel

Im folgenden Beispiel wird veranschaulicht, wie Sie einen Hyperlink an einer bestimmten Position im Schnellstartmenü hinzufügen. Dieses Beispiel ist Bestandteil eines größeren Projekts, bei dem ein Feature mit Websitebereich zum Erstellen der Dokumentbibliothek Meeting Notes verwendet wird. Dieses Feature enthält einen Ereignishandler, mit dem die SPFeatureReceiver-Klasse implementiert wird. In der FeatureActivated-Methode des Featureempfängers gibt es Code zum Erstellen der Bibliothek Meeting Notes und zum Hinzufügen eines Hyperlinks zu dieser Bibliothek unter der Menüüberschrift Bibliotheken. Falls das Menü einen Hyperlink zur Bibliothek Shared Documents aufweist, wird der neue Hyperlink unmittelbar nach diesem eingefügt. Falls das Menü keinen Hyperlink zu Shared Documents aufweist, wird der Hyperlink zu Meeting Notes als erstes Element unter der Menüüberschrift Bibliotheken eingerichtet.

Hinweis
Bei diesem Beispielcode werden mehrere Qualifikationstypen verwendet. Für die ordnungsgemäße Kompilierung des Codes müssen von der Featureempfängerklasse die folgenden Namespaces importiert werden: System System.Linq System.Runtime.InteropServices Microsoft.SharePoint Microsoft.SharePoint.Navigation

Bei diesem Beispielcode werden mehrere Qualifikationstypen verwendet. Für die ordnungsgemäße Kompilierung des Codes müssen von der Featureempfängerklasse die folgenden Namespaces importiert werden:

public override void FeatureActivated(SPFeatureReceiverProperties properties)
{
    // Get the website where the feature is activated.
    SPWeb web = properties.Feature.Parent as SPWeb;
    if (web == null)
        return;

    // Get the Meeting Notes document library.
    SPList meetingNotes = web.Lists.TryGetList("Meeting Notes");
    if (meetingNotes == null)
    {
        // Create the library if it does not exist.
        Guid listId = web.Lists.Add("Meeting Notes", "An archive for meeting notes.", SPListTemplateType.DocumentLibrary);
        meetingNotes = web.Lists.GetList(listId, false);
    }

    // Check for an existing Quick Launch node for Meeting Notes.
    SPNavigationNode meetingNotesNode = web.Navigation.GetNodeByUrl(meetingNotes.DefaultViewUrl);

    // If a Meeting Notes node exists on Quick Launch, nothing more to do.
    if (meetingNotesNode != null)
        return;

    // Still here, so create a node for Meeting Notes.
    meetingNotesNode = new SPNavigationNode(meetingNotes.Title, meetingNotes.DefaultViewUrl);

    // Get the Libraries heading.
    SPNavigationNode librariesHeading = web.Navigation.GetNodeById((int)SPQuickLaunchHeading.Documents);

    // If the Libraries heading does not exist or it exists but has no items below it,
    // then Meeting Notes will be the first item.
    if (librariesHeading == null || librariesHeading.Children.Count == 0)
    {
        web.Navigation.AddToQuickLaunch(meetingNotesNode, SPQuickLaunchHeading.Documents);
        return;
    }

    // The Libraries heading exists. Now check for an item linking to Shared Documents.
    // If a node for Shared Documents exists, Meeting Notes will go after it.
    SPList sharedDocs = web.Lists.TryGetList("Shared Documents");
    SPNavigationNode sharedDocsNode = null;
    if (sharedDocs != null)
        sharedDocsNode = librariesHeading
            .Children
            .Cast<SPNavigationNode>()
            .FirstOrDefault(n => n.Url == sharedDocs.DefaultViewUrl);

    // A node for Shared Documents does not exist. Make Meeting Notes the first item.
    if (sharedDocsNode == null)
    {
        librariesHeading.Children.AddAsFirst(meetingNotesNode);
        return;
    }

    // A node for Shared Documents exists. Place Meeting Notes after it.
    librariesHeading.Children.Add(meetingNotesNode, sharedDocsNode);

    web.Dispose();
}

Public Overrides Sub FeatureActivated(ByVal properties As SPFeatureReceiverProperties)

    'Get the website where the feature is activated.
    Dim web As SPWeb = TryCast(properties.Feature.Parent, SPWeb)
    If web Is Nothing Then
        Return
    End If

    ' Get the Meeting Notes document library.
    Dim meetingNotes As SPList = web.Lists.TryGetList("Meeting Notes")
    If meetingNotes Is Nothing Then

        ' Create the library if it does not exist.
        Dim listId As Guid = web.Lists.Add("Meeting Notes", "An archive for meeting notes.", SPListTemplateType.DocumentLibrary)
        meetingNotes = web.Lists.GetList(listId, False)

    End If

    ' Check for an existing Quick Launch node for Meeting Notes.
    Dim meetingNotesNode As SPNavigationNode = web.Navigation.GetNodeByUrl(meetingNotes.DefaultViewUrl)

    ' If a Meeting Notes node exists on Quick Launch, nothing more to do.
    If meetingNotesNode IsNot Nothing Then
        Return
    End If

    ' Still here, so create a node for Meeting Notes.
    meetingNotesNode = New SPNavigationNode(meetingNotes.Title, meetingNotes.DefaultViewUrl)

    ' Get the Libraries heading.
    Dim librariesHeading As SPNavigationNode = web.Navigation.GetNodeById(CInt(SPQuickLaunchHeading.Documents))

    ' If the Libraries heading does not exist or it exists but has no items below it,
    ' then Meeting Notes will be the first item.
    If librariesHeading Is Nothing OrElse librariesHeading.Children.Count = 0 Then
        web.Navigation.AddToQuickLaunch(meetingNotesNode, SPQuickLaunchHeading.Documents)
        Return
    End If

    ' The Libraries heading exists. Now check for an item linking to Shared Documents.
    ' If a node for Shared Documents exists, Meeting Notes will go after it.
    Dim sharedDocs As SPList = web.Lists.TryGetList("Shared Documents")
    Dim sharedDocsNode As SPNavigationNode = Nothing
    If sharedDocs IsNot Nothing Then
        sharedDocsNode = librariesHeading.Children.Cast(Of SPNavigationNode)().FirstOrDefault( _
            Function(n) n.Url = sharedDocs.DefaultViewUrl)
    End If

    ' A node for Shared Documents does not exist. Make Meeting Notes the first item.
    If sharedDocsNode Is Nothing Then
        librariesHeading.Children.AddAsFirst(meetingNotesNode)
        Return
    End If

    ' A node for Shared Documents exists. Place Meeting Notes after it.
    librariesHeading.Children.Add(meetingNotesNode, sharedDocsNode)

    web.Dispose()
End Sub

Hinzufügen einer benutzerdefinierten Menüüberschrift

Die Menüüberschriften im Schnellstartmenü sind SPNavigationNode-Objekte. Die Auflistung von Menüüberschriften wird von der QuickLaunch-Eigenschaft des Navigation-Objekts der Website zurückgegeben. Sie können eine benutzerdefinierte Menüüberschrift hinzufügen, indem Sie einen neuen Navigationsknoten erstellen und durch Aufrufen einer Methode der SPNavigationNodeCollection-Klasse, wie z. B. der AddAsLast-Methode, der Auflistung hinzufügen.

So fügen Sie der Schnellstartleiste eine benutzerdefinierte Menüüberschrift hinzu

Erstellen Sie ein SPNavigationNode-Objekt, das den Navigationsknoten für die neue Menüüberschrift repräsentiert.

string headingTitle = "Resources";
string headingUrl = web.Navigation.Home.Url;
SPNavigationNode heading = new SPNavigationNode(headingTitle, headingUrl);

Dim headingTitle As String = "Resources"
Dim headingUrl As String = web.Navigation.Home.Url
Dim heading As SPNavigationNode = New SPNavigationNode(headingTitle, headingUrl)

Rufen Sie die Auflistung von Navigationsknoten ab, die von der QuickLaunch-Eigenschaft des Objekts zurückgegeben wird, das von der SPWeb.Navigation-Eigenschaft der Website zurückgegeben wird.
```
SPNavigationNodeCollection quickLaunch = web.Navigation.QuickLaunch;
```
```
Dim quickLaunch As SPNavigationNodeCollection = web.Navigation.QuickLaunch
```
Fügen Sie der Auflistung den neuen Menüüberschriftenknoten hinzu, indem Sie eine Methode der SPNavigationNodeCollection-Klasse aufrufen.
```
heading = quickLaunch.AddAsLast(heading);
```
```
heading = quickLaunch.AddAsLast(heading)
```
In diesem Beispiel wird die AddAsLast-Methode aufgerufen. Zwei weitere Methoden sind verfügbar: die AddAsFirst-Methode und die Add-Methode.
(Optional) Fügen Sie Elemente unter der neuen Menüüberschrift hinzu, indem Sie die Auflistung abrufen, die von der Children-Eigenschaft der neuen Menüüberschrift zurückgegeben wird, und wiederum eine Methode SPNavigationNodeCollection-Klasse aufrufen.
```
SPNavigationNode item = new SPNavigationNode(itemTitle, itemUrl);
item = heading.Children.AddAsLast(item);
```
```
Dim item As SPNavigationNode = New SPNavigationNode(itemTitle, itemUrl)
item = heading.Children.AddAsLast(item)
```

Beispiel

Beim folgenden Beispiel handelt es sich um eine Konsolenanwendung, mit der eine neue Menüüberschrift in der Schnellstartleiste für Ressourcen erstellt wird und ein Element unter der neuen Menüüberschrift hinzugefügt wird.

using System;
using System.Linq;
using Microsoft.SharePoint;
using Microsoft.SharePoint.Navigation;

namespace ConsoleApp
{
    class Program
    {
        static void Main(string[] args)
        {
            using (SPSite site = new SPSite("https://localhost"))
            {
                using (SPWeb web = site.OpenWeb())
                {
                    string headingTitle = "Resources";
                    string headingUrl = web.Navigation.Home.Url;
                    string itemTitle = "SharePoint Developer Center";
                    string itemUrl = "https://msdn.microsoft.com/sharepoint";

                    // Get the Quick Launch headings.
                    SPNavigationNodeCollection ql = web.Navigation.QuickLaunch;

                    // If a Resources heading exists, get it.
                    SPNavigationNode heading = ql
                        .Cast<SPNavigationNode>()
                        .FirstOrDefault(n => n.Title == headingTitle);

                    // If the Resources heading does not exist, create it.
                    if (heading == null)
                    {
                        heading = new SPNavigationNode(headingTitle, headingUrl);
                        heading = ql.AddAsLast(heading);
                    }

                    // If the heading has a SharePoint Dev Center item, get it.
                    SPNavigationNode item = heading
                        .Children
                        .Cast<SPNavigationNode>()
                        .FirstOrDefault(n => n.Url == itemUrl);

                    // If the item does not exist, create it.
                    if (item == null)
                    {
                        item = new SPNavigationNode(itemTitle, itemUrl, true);
                        item = heading.Children.AddAsLast(item);
                    }
                 }
            }
            Console.Write("\nPress ENTER to continue....");
            Console.ReadLine();
        }
    }
}

Imports System
Imports Microsoft.SharePoint
Imports Microsoft.SharePoint.Navigation

Module ConsoleApp

    Sub Main()

        Using site As New SPSite("https://localhost")
            Using web As SPWeb = site.OpenWeb()

                Dim headingTitle As String = "Resources"
                Dim headingUrl As String = web.Navigation.Home.Url
                Dim itemTitle As String = "SharePoint Developer Center"
                Dim itemUrl As String = "https://msdn.microsoft.com/sharepoint"

                ' Get the Quick Launch headings.
                Dim ql As SPNavigationNodeCollection = web.Navigation.QuickLaunch

                ' If a Resources heading exists, get it.
                Dim heading As SPNavigationNode = ql.Cast(Of SPNavigationNode)().FirstOrDefault( _
                    Function(n) n.Title = headingTitle)

                ' If the Resources heading does not exist, create it.
                If heading Is Nothing Then
                    heading = New SPNavigationNode(headingTitle, headingUrl)
                    heading = ql.AddAsLast(heading)
                End If

                ' If the heading has a SharePoint Dev Center item, get it.
                Dim item As SPNavigationNode = heading.Children.Cast(Of SPNavigationNode)().FirstOrDefault( _
                    Function(n) n.Url = itemUrl)

                ' If the item does not exist, create it.
                If item Is Nothing Then
                    item = New SPNavigationNode(itemTitle, itemUrl, True)
                    item = heading.Children.AddAsLast(item)
                End If

            End Using
        End Using

        Console.Write(vbCrLf & "Press ENTER to continue....")
        Console.Read()
    End Sub

End Module

Siehe auch

Aufgaben

Gewusst wie: Anzeigen oder Ausblenden der Schnellstartleiste

Gewusst wie: Anpassen der Anzeige der Schnellstartleiste

Vorgehensweise: Hinzufügen einer Unterwebsite zur Leiste für häufig verwendete Hyperlinks oder zum Menü "Schnellstart"

Hinzufügen von Hyperlinks zur Schnellstartleiste

Navigieren in der Menüstruktur

Hinzufügen eines Elements unter einer integrierten Menüüberschrift

So fügen Sie ein Element unter einer integrierten Menüüberschrift hinzu

Beispiel

Angeben der Position im Menü

So fügen Sie einen Hyperlink nach einem vorhandenen Element im Menü hinzu

Beispiel

Hinzufügen einer benutzerdefinierten Menüüberschrift

So fügen Sie der Schnellstartleiste eine benutzerdefinierte Menüüberschrift hinzu

Beispiel

Siehe auch

Aufgaben

Zusätzliche Ressourcen