[Resolvido] TreeView não funciona no firefox
Bom dia
Tenho uma aplicaçao administrativa que possui um treeview dentro de um frame, ela roda normal no IE, mas no Firefox e no Google Chrome não aparece os nós filhos qdo clico no nó pai, ou seja, nao expande as opções.
Preciso que a estrutura que está feita seja mantida, mas que funcione em todos os navegadores.
Segue o código abaixo:
AdmDefault.aspx
<frameset border="0" frameSpacing="0" rows="60,89%" frameBorder="0">
<%-- Página AdmHeader.aspx contém o cabeçalho da página --%>
<frame name="top" marginWidth="0" marginHeight="0" src="ADMHeader.aspx" frameBorder="0" noResize scrolling="no">
<frameset border="0" frameSpacing="0" cols="170,*" frameBorder="0">
<%-- Página ADMMenu.aspx contém o treeview que é o menu --%>
<frame name="menu" marginWidth="0" marginHeight="0" src="ADMMenu.aspx" frameBorder="0" noResize scrolling="auto">
<%-- Página ADMBranco.aspx área onde o conteudo vai ser apresentado--%>
<frame name="main" marginWidth="0" marginHeight="0" src="ADMbranco.aspx" frameBorder="0" noResize scrolling="auto">
</frameset>
</frameset>
AdmMenu.aspx
<iewc:treeview id="treeMenu" width="100%" runat="server" ShowLines="False"
ShowToolTip="False" ShowPlus="False" BorderWidth="0px"
BorderColor="Transparent" BackColor="Transparent"
CssClass="menutree" EnableViewState="False">
</iewc:treeview>
AdmMenu.aspx.vb
Imports System.Data.SqlClient
Imports Microsoft.Web.UI.WebControls
Imports Sinasa.Db
Imports Sinasa.Util
Partial Class ADMMenu
Inherits System.Web.UI.Page
Protected WithEvents datMenu As System.Web.UI.WebControls.Repeater
Protected WithEvents datSubmenu As System.Web.UI.WebControls.Repeater
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack() Then
BindMenu()
End If
End Sub
Private Sub BindMenu()
Dim nodeMenu As TreeNode
Dim nodeSub As TreeNode
Dim sdr As SqlClient.SqlDataReader
Dim stAuxLink As String
Try
'Verifica a qual menu o usuario tem acesso
sdr = Users.ListAppMenu(Page.User.Identity.Name, "ADMIN", True)
'Populate the TreeView from the DataSet.
Dim stGroupId As String = ""
While sdr.Read
If IsDBNull(sdr("stParentAppMenuId")) Then
nodeMenu = New TreeNode
nodeMenu.Text = sdr("stCaption")
nodeMenu.Expandable = ExpandableValue.Always
If Not IsDBNull(sdr("stWebLink").Value) Then
stAuxLink = sdr("stWebLink")
If InStr(stAuxLink, "default.aspx") > 0 Then
stAuxLink += "&stUserID=" & Page.User.Identity.Name.ToString
End If
nodeMenu.NavigateUrl = "javascript:Call('" & stAuxLink & "');"
End If
nodeMenu.DefaultStyle.CssText = "FONT-SIZE: 10px; FONT-WEIGHT: BOLD; PADDING: 2px; FONT-FAMILY: VERDANA,ARIAL; COLOR:# #043c75; TEXT-DECORATION : none; WIDTH: 150px"
nodeMenu.HoverStyle.CssText = "WIDTH: 150px"
treeMenu.Nodes.Add(nodeMenu)
stGroupId = CSDb.CString(sdr("stAppMenuId"))
Else
nodeSub = New TreeNode
nodeSub.Text = sdr("stCaption")
nodeSub.ImageUrl = CSDb.CString(sdr("stImage"))
'nodeSub.HoverStyle.CssText = "FONT-SIZE: 10px;COLOR: #043c75;TEXT(-DECORATION) : underline()"
nodeSub.DefaultStyle.CssText = "FONT-SIZE: 10px; FONT-FAMILY: VERDANA,ARIAL; COLOR: #043c75;TEXT-DECORATION : none; WIDTH: 118px "
'nodeSub.SelectedStyle.CssText = ""
If Not IsDBNull(sdr("stWebLink")) Then
stAuxLink = sdr("stWebLink")
If InStr(stAuxLink, "default.aspx") > 0 Then
stAuxLink += "&stUserID=" & Page.User.Identity.Name.ToString
End If
nodeSub.NavigateUrl = "javascript:Call('" & stAuxLink & "');"
End If
nodeMenu.Nodes.Add(nodeSub)
End If
End While
Catch ex As Exception
Throw ex
Finally
CSDb.CloseRead(sdr)
End Try
End Sub
End Class
Discussão (2)
Carregando comentários...