Hi, ich versuche mich gerade an dem ajax-toolkit hovermenu.
Leider schließt das Panel nicht, wenn man ein Submenü angeklickt hat ... Any hints would be great.
Bin gespannt,
Stoff
Leider schließt das Panel nicht, wenn man ein Submenü angeklickt hat ... Any hints would be great.
Bin gespannt,
Stoff
Code:
Imports System.Web.Configuration Imports AjaxControlToolkit Partial Class _Default Inherits System.Web.UI.Page Protected Sub CreateMenues() Dim appSettings As NameValueCollection Dim appSettingsEnum As IEnumerator Dim mnuTag As String Dim subMnuTag As String Dim litCtrl As LiteralControl Dim curHoverMnuExt As AjaxControlToolkit.HoverMenuExtender Dim curPanel As Panel Dim curMainMenuLabel As Label Dim curSubMenuLink As HyperLink Dim j As Integer Dim i As Integer ' Get the appSettings key,value pairs collection. appSettings = WebConfigurationManager.AppSettings appSettingsEnum = appSettings.GetEnumerator() For i = 0 To 2 ' Load extender curHoverMnuExt = New HoverMenuExtender mnuTag = "mnu_" & i With curHoverMnuExt .ID = "hme_" & mnuTag .TargetControlID = "mnu_" & mnuTag .PopupControlID = "pnl_" & mnuTag .PopupPosition = HoverMenuPopupPosition.Bottom .PopDelay = "25" End With ' Load menu curHoverMnuExt = New HoverMenuExtender With curHoverMnuExt .ID = "hme_" & mnuTag .TargetControlID = "mnu_" & mnuTag .PopupControlID = "pnl_" & mnuTag .PopupPosition = HoverMenuPopupPosition.Bottom .PopDelay = "25" End With curPanel = New Panel With curPanel .ID = "pnl_" & mnuTag .CssClass = "popupPanel" End With curMainMenuLabel = New Label litCtrl = New LiteralControl(mnuTag) With curMainMenuLabel .ID = "mnu_" & mnuTag .Controls.Add(litCtrl) .CssClass = "menuLabel" End With ' Zuweisen zum Platzhalter Me.mnuPlaceHolder.Controls.Add(curHoverMnuExt) Me.mnuPlaceHolder.Controls.Add(curPanel) Me.mnuPlaceHolder.Controls.Add(curMainMenuLabel) For j = 0 To 2 subMnuTag = "submenu_" & i & "_" & j curSubMenuLink = New HyperLink With curSubMenuLink .CssClass = "subMenuLabel" .ID = "SubMenuLbl_" & subMnuTag .Text = subMnuTag .ToolTip = subMnuTag .NavigateUrl = "javascript: switchUrl();" End With curPanel.Controls.Add(curSubMenuLink) litCtrl = New LiteralControl("<br />") curPanel.Controls.Add(litCtrl) Next j Next i End Sub Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init CreateMenues() End Sub End Class