You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
2.4 KiB
69 lines
2.4 KiB
Public Class Menu
|
|
Inherits System.Web.UI.UserControl
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
|
|
If Session.Item("LogedIn") Is Nothing Then
|
|
Me.NavigationMenu.Items.Clear()
|
|
get_menu(1)
|
|
Exit Sub
|
|
End If
|
|
If Session.Item("LogedIn") = False Then
|
|
Me.NavigationMenu.Items.Clear()
|
|
get_menu(1)
|
|
Exit Sub
|
|
End If
|
|
Me.NavigationMenu.Items.Clear()
|
|
get_menu(Session.Item("Menuhandler"))
|
|
|
|
|
|
' Dim mi As New System.Web.UI.WebControls.MenuItem
|
|
' mi.Text = "Hallo"
|
|
' Me.NavigationMenu.Items.Add(mi)
|
|
End Sub
|
|
|
|
Sub get_menu(ByVal menutype As Integer)
|
|
Dim dh As New clsDatahandling
|
|
Dim Menuentries As New DataTable
|
|
Menuentries = dh.Get_Menu(menutype)
|
|
Dim found As Boolean = False
|
|
For Each dr As DataRow In Menuentries.Rows
|
|
Dim mi As New System.Web.UI.WebControls.MenuItem
|
|
mi.Text = dr.Item(1).ToString
|
|
mi.Value = dr.Item(2).ToString
|
|
mi.ToolTip = dr.Item(3).ToString
|
|
mi.NavigateUrl = dr.Item(4).ToString
|
|
If dr.Item("Parentnr") = 0 Then
|
|
Me.NavigationMenu.Items.Add(mi)
|
|
Else
|
|
found = False
|
|
For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
|
|
If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
|
|
mitem.ChildItems.Add(mi)
|
|
found = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If found = False Then
|
|
For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
|
|
For Each mitem2 As System.Web.UI.WebControls.MenuItem In mitem.ChildItems
|
|
If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
|
|
mitem2.ChildItems.Add(mi)
|
|
found = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Protected Sub NavigationMenu_MenuItemClick(sender As Object, e As MenuEventArgs) Handles NavigationMenu.MenuItemClick
|
|
|
|
End Sub
|
|
End Class |