Forums

   Imports DotNetNuke.UI.WebControls

Partial Class DesktopModules_DNNMenu_Menu
    Inherits Entities.Modules.PortalModuleBase
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Not Page.IsPostBack Then
            EFTDNNMenu.ImageList.Add("/Images/spacer.gif")
            EFTDNNMenu.ImageList.Add("/Images/spacer.gif")
            PopulateTree()
        End If
    End Sub

    Private Sub PopulateTree()
        EFTDNNMenu.MenuNodes.Clear()

        Dim index As Integer = 0
        Dim objNode As MenuNode = New MenuNode("Tutorials")
        objNode.NavigateURL = "http://www.adefwebserver.com/DotNetNukeHELP/"
        objNode.ToolTip = "DotNetNuke Tutorial Series"
        objNode.ImageIndex = eImageType.Folder
        objNode.ClickAction = eClickAction.Navigate
        objNode.HasNodes = True
        EFTDNNMenu.MenuNodes.Add(objNode)

        index = objNode.MenuNodes.Add()
        objNode = objNode.MenuNodes(index)
        objNode.Text = "DotNetNuke 4"
        objNode.ToolTip = "DotNetNuke 4 Tutorials"
        objNode.ImageIndex = eImageType.Folder
        objNode.ClickAction = eClickAction.Expand
        PopulateChildrenMenuNodes(objNode)

    End Sub

    Private Sub PopulateChildrenMenuNodes(ByVal objParent As MenuNode)
        Dim index As Integer = 0
        Dim objMenuNode As MenuNode

        index = objParent.MenuNodes.Add()
        objMenuNode = objParent.MenuNodes(index)

        objMenuNode.CSSClass = "SideNavMenu"
        objMenuNode.CssClassOver = "SideNavMenu"
        objMenuNode.CSSClassSelected = "SideNavMenu"
        objMenuNode.Text = "Super-Simple Module (DAL+)"
        objMenuNode.NavigateURL = "http://www.adefwebserver.com/DotNetNukeHELP/DNN_ShowMeThePages/"
        objMenuNode.ImageIndex = eImageType.Page
        objMenuNode.ClickAction = eClickAction.Navigate
        index = objParent.MenuNodes.Add()

        objMenuNode = objParent.MenuNodes(index)
        index += 1
        objMenuNode.CSSClass = "SideNavMenu"
        objMenuNode.CssClassOver = "SideNavMenu"
        objMenuNode.CSSClassSelected = "SideNavMenu"
        objMenuNode.Text = "Super-Fast Super-Easy Module (DAL+)"
        objMenuNode.NavigateURL = "http://www.adefwebserver.com/DotNetNukeHELP/DNN_Things4Sale/"
        objMenuNode.ImageIndex = eImageType.Page
        objMenuNode.ClickAction = eClickAction.Navigate
        index = objParent.MenuNodes.Add()

        objMenuNode = objParent.MenuNodes(index)
        index += 1
        objMenuNode.CSSClass = "SideNavMenu"
        objMenuNode.CssClassOver = "SideNavMenu"
        objMenuNode.CSSClassSelected = "SideNavMenu"
        objMenuNode.Text = "Create a full complete Module"
        objMenuNode.NavigateURL = "http://www.adefwebserver.com/DotNetNukeHELP/DNN_Module4/"
        objMenuNode.ImageIndex = eImageType.Page
        objMenuNode.ClickAction = eClickAction.Navigate

    End Sub

    Public Enum eImageType
        Folder
        Page
    End Enum

    Protected Sub EFTDNNMenu_PopulateOnDemand(ByVal source As Object, ByVal e As DotNetNuke.UI.WebControls.DNNMenuEventArgs) Handles EFTDNNMenu.PopulateOnDemand
        PopulateChildrenMenuNodes(e.Node)
    End Sub
End Class

If every an app needed a good vertical menu module that supports sub menu items and has a UI for module distribution god does this one.