SharePoint 2013-SuiteLink代理栏

我希望能够在SharePoint 2013网站顶部的SuiteLink代表栏上放置多个链接。但是在我部署之后，只有第一个会出现。这是我的元素文件：

<?xml version="1.0" encoding="utf-8"?>
<Elements xmlns="http://schemas.microsoft.com/sharepoint/">
     <Control Id="SuiteLinksDelegate"
         Sequence="1"
         ControlSrc="~/_ControlTemplates/15/xxxxx.SuiteBar.AllLinks/Search.ascx" />
  <Control Id="SuiteLinksDelegate"
       Sequence="2"
       ControlSrc="~/_ControlTemplates/15/xxxxx.SuiteBar.AllLinks/ITticket.ascx" />
  <Control Id="SuiteLinksDelegate"
       Sequence="3"
       ControlSrc="~/_ControlTemplates/15/xxxxx.SuiteBar.AllLinks/eLearning.ascx" />
  <Control Id="SuiteLinksDelegate"
       Sequence="4"
       ControlSrc="~/_ControlTemplates/15/xxxxx.SuiteBar.AllLinks/MBO.ascx" />
</Elements>

另一个：

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports Microsoft.SharePoint.Portal.WebControls

Namespace ControlTemplates.xxxxx.SuiteBar.AllLinks

Partial Public Class MBO
    Inherits MySuiteLinksUserControl
    ReadOnly linkText As String = "MBO"
    ReadOnly linkNavigation As String = "/departments/enterprise/2014MBO/default.aspx"
    ReadOnly linkId As String = "lnkMBOLink"

    Protected Sub Page_Load(sender As Object, e As EventArgs)
    End Sub

    Protected Overrides Sub Render(writer As HtmlTextWriter)
        writer.RenderBeginTag(HtmlTextWriterTag.Style)
        writer.Write(".ms-core-suiteLinkList {display: inline-block;}")
        writer.RenderEndTag()
        writer.AddAttribute(HtmlTextWriterAttribute.[Class], "ms-core-suiteLinkList")
        writer.RenderBeginTag(HtmlTextWriterTag.Ul)
        RenderSuiteLink(writer, linkNavigation, linkText, linkId, False)
        writer.RenderEndTag()
        MyBase.Render(writer)
    End Sub
End Class

End Namespace

---

元素文件看起来不错。你的控件ascx文件呢？它们的设置都一样吗？是否遵循了一些教程（如本教程）中的说明？嗨，丹尼斯，是的。任何隐藏附加链接的自定义样式都已修复。没有附加样式。。。我在上面添加了ascx代码。

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports Microsoft.SharePoint.Portal.WebControls

Namespace ControlTemplates.xxxxx.SuiteBar.AllLinks

Partial Public Class MBO
    Inherits MySuiteLinksUserControl
    ReadOnly linkText As String = "MBO"
    ReadOnly linkNavigation As String = "/departments/enterprise/2014MBO/default.aspx"
    ReadOnly linkId As String = "lnkMBOLink"

    Protected Sub Page_Load(sender As Object, e As EventArgs)
    End Sub

    Protected Overrides Sub Render(writer As HtmlTextWriter)
        writer.RenderBeginTag(HtmlTextWriterTag.Style)
        writer.Write(".ms-core-suiteLinkList {display: inline-block;}")
        writer.RenderEndTag()
        writer.AddAttribute(HtmlTextWriterAttribute.[Class], "ms-core-suiteLinkList")
        writer.RenderBeginTag(HtmlTextWriterTag.Ul)
        RenderSuiteLink(writer, linkNavigation, linkText, linkId, False)
        writer.RenderEndTag()
        MyBase.Render(writer)
    End Sub
End Class

End Namespace