Hover menu schließt nicht ...

[stoff]

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

 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