Расширение узла ASP.NET TreeView от кода

Question

Я узнаю, как получить доступ к элементам управления главной страницей ASP.Net и попытаться расширить конкретный узел TreeView. Я делаю это с другой страницы, которая не является главной страницей.

objContentPlaceHolder, objLoginView и objTreeView имеют значение, подтвержденное с помощью отладчика.

Вы можете посмотреть этот код и сообщить нам, почему код в цикле for не выполняется? Он достигает цикла for, но просто пропускает цикл for в этой точке.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    Dim objContentPlaceHolder As ContentPlaceHolder 
    Dim objLoginView As LoginView 
    Dim objTreeView As TreeView 

    objContentPlaceHolder = CType(Master.FindControl("ContentPlaceHolderBody"), ContentPlaceHolder) 

    If Not objContentPlaceHolder Is Nothing Then 

     objLoginView = CType(objContentPlaceHolder.FindControl("loginViewMain"), LoginView) 

     If Not objLoginView Is Nothing Then 
      objTreeView = CType(objLoginView.FindControl("TreeViewMain"), TreeView) 

      ' Make sure all nodes for Maintenance are expanded. 
      '-------------------------------------------------- 
      For Each treenode As TreeNode In objTreeView.Nodes 
       If treenode.Text = "Maintenance" Then 
        treenode.Expand() 
       End If 
      Next treenode 
     End If 
    End If 
End Sub 

* Обновление *

Я изменил обработчик события загрузки страницы в обработчик события PreRenderComplete и вы поверите, что сработало? Не знаю, почему PreRender не сделал этого. Еще раз спасибо всем за помощь.

Answer 1

public Sub TreeView_TreeNodeDataBound(ByVal sender As Object, ByVal e As TreeNodeEventArgs ) 
     dim mapNode as SiteMapNode = e.Node.DataItem as SiteMapNode 
     If mapNode.Title = "Maintenance" then 
      e.Node.Expand() 
     End if 
    End Sub 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

     Dim objContentPlaceHolder As ContentPlaceHolder 
     Dim objLoginView As LoginView 
     Dim objTreeView As TreeView 

     objContentPlaceHolder = CType(Master.FindControl("ContentPlaceHolderBody"), ContentPlaceHolder) 

     If Not objContentPlaceHolder Is Nothing Then 

      objLoginView = CType(objContentPlaceHolder.FindControl("loginViewMain"), LoginView) 

      If Not objLoginView Is Nothing Then 
       objTreeView = CType(objLoginView.FindControl("TreeViewMain"), TreeView) 
       objTreeView.TreeNodeDataBound += TreeView_TreeNodeDataBound 
      End If 
     End If 
    End Sub 

Надеется, что это поможет

Answer 2

Из вашего примера, это выглядит как логика только проверки корневых узлов. При работе с иерархическими данными вам необходимо использовать рекурсивную логику, чтобы обеспечить оценку всей структуры.

Что-то вроде этого является то, что вам нужно:

Protected Sub btnSearch_Click(sender As Object, e As EventArgs) 
    For Each node As TreeNode In TreeView1.Nodes 
     ExpandNodeByValue("Maintenance", node) 
    Next 
End Sub 

Private Sub ExpandNodeByValue(value As String, parentNode As TreeNode) 
    For Each childNode As TreeNode In parentNode.ChildNodes 
     If childNode.Value.ToLower() = value.ToLower() Then 
      childNode.Expand() 
     End If 
     If childNode.ChildNodes.Count > 0 Then 
      ExpandNodeByValue(value, childNode) 
     End If 
    Next 
End Sub 

Я также хотел бы предложить использовать DirectCast вместо CType, по крайней мере временно, чтобы гарантировать, что контроль был найден. Это можно осуществить следующим образом:

Dim objTreeView as TreeView = DirectCast(objLoginView.FindControl("TreeViewMain"), TreeView) 
If objTreeView IsNot Nothing Then 
    'The control was found 
End If