Salve, ho una pagina web che al suo interno ha un controllo utente dove ho messo RadSiteMap. Questo controllo utente carica al suo interno un altro controllo utente che ha un radmenu caricato dinamicamente da sqldatasource.
Nel evento page load del controllo utente dove ho messo RadSiteMap ho inserito questo
Try
Dim UC_text As UserControl = DirectCast(Me.FindControl("MenuOr1"), UserControl)
Dim RMenu As RadMenu = CType(UC_text.FindControl("RadMenu1"), RadMenu)
Dim currentItem As RadMenuItem = RMenu.FindItemByUrl(Request.Url.PathAndQuery)
If currentItem IsNot Nothing Then
'Select the current item and his parents
currentItem.HighlightPath()
'Update the title of the
PageTitleLiteral.Text = currentItem.Text
'Populate the breadcrumb
DataBindBreadCrumbSiteMap(currentItem)
Else
RMenu.Items(0).HighlightPath()
End If
Catch ex As Exception
End Try
questa funzione Dim currentItem As RadMenuItem = RMenu.FindItemByUrl(Request.Url.PathAndQuery)
non riporta nessun valore potete aiutarmi?
Grazie
Salve, ho una pagina web che al suo interno ha un controllo utente dove ho messo RadSiteMap. Questo controllo utente carica al suo interno un altro controllo utente che ha un radmenu caricato dinamicamente da sqldatasource.
Nel evento page load del controllo utente dove ho messo RadSiteMap ho inserito questo
Try
Dim UC_text As UserControl = DirectCast(Me.FindControl("MenuOr1"), UserControl)
Dim RMenu As RadMenu = CType(UC_text.FindControl("RadMenu1"), RadMenu)
Dim currentItem As RadMenuItem = RMenu.FindItemByUrl(Request.Url.PathAndQuery)
If currentItem IsNot Nothing Then
'Select the current item and his parents
currentItem.HighlightPath()
'Update the title of the
PageTitleLiteral.Text = currentItem.Text
'Populate the breadcrumb
DataBindBreadCrumbSiteMap(currentItem)
Else
RMenu.Items(0).HighlightPath()
End If
Catch ex As Exception
End Try
questa funzione Dim currentItem As RadMenuItem = RMenu.FindItemByUrl(Request.Url.PathAndQuery)
non riporta nessun valore potete aiutarmi?
Grazie