Como Percorrer todos os controles de uma página ASP com vb.net
20/05/2014
0
Estou começando a desenvolver em ASP com VB.NET. Preciso percorrer todos dos controles Button e ImageButton da minha página WFPermissoes que possui uma máster page.
Estou utilizando o código abaixo. Porém retorna nothing.
Dim AplFrm As String = "Teste.Web.WFPermissoes
If System.Type.GetType(AplFrm) IsNot Nothing Then
' Cria uma nova instância do Web Form
Dim FORMULARIO As Page = Activator.CreateInstance(System.Type.GetType(AplFrm))
For Each controles As Control In FORMULARIO.Controls
For Each c As Control In controles.Controls
If c.GetType.ToString = "System.Web.UI.WebControls.ImageButton" Or c.GetType.ToString = "System.Web.UI.WebControls.Button" Then
Dim BTNODE = New TreeNode(c.SkinID)
BTNODE.Target = c.ID
Subnode.ChildNodes.Add(BTNODE)
For m = 1 To ContaMenu
NomeMN = RetornaConteudoXML(Xml_Menu, "Nome", "Menu ID = " & m)
For cmd = 1 To ContaCMD
CMDTela = RetornaConteudoXML(Xml_CMD, "Tela", "Comando ID = " & cmd)
' CMDTela = Trim(TabMenu.Rows(i).Item(5))
If Subnode.Value = NomeMN And BTNODE.Target = CMDTela Then
BTNODE.Checked = True
End If
Next
Next
End If
Next
Next
Estou utilizando o código abaixo. Porém retorna nothing.
Dim AplFrm As String = "Teste.Web.WFPermissoes
If System.Type.GetType(AplFrm) IsNot Nothing Then
' Cria uma nova instância do Web Form
Dim FORMULARIO As Page = Activator.CreateInstance(System.Type.GetType(AplFrm))
For Each controles As Control In FORMULARIO.Controls
For Each c As Control In controles.Controls
If c.GetType.ToString = "System.Web.UI.WebControls.ImageButton" Or c.GetType.ToString = "System.Web.UI.WebControls.Button" Then
Dim BTNODE = New TreeNode(c.SkinID)
BTNODE.Target = c.ID
Subnode.ChildNodes.Add(BTNODE)
For m = 1 To ContaMenu
NomeMN = RetornaConteudoXML(Xml_Menu, "Nome", "Menu ID = " & m)
For cmd = 1 To ContaCMD
CMDTela = RetornaConteudoXML(Xml_CMD, "Tela", "Comando ID = " & cmd)
' CMDTela = Trim(TabMenu.Rows(i).Item(5))
If Subnode.Value = NomeMN And BTNODE.Target = CMDTela Then
BTNODE.Checked = True
End If
Next
Next
End If
Next
Next
Carlos Alberto
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)