ASP.NET - Ayuda Crear Nodo Dinámicamente

   
Vista:

Ayuda Crear Nodo Dinámicamente

Publicado por HAF (138 intervenciones) el 23/03/2010 12:55:02
En Un treeview Necesito crear en tiempo de ejecución nodos dinámicamente

algo como así :

For i = 1 To 50
Dim Node&cstr(i) As TreeNode = New TreeNode()
Next

Y tengo que hacerlo así porque depende de unos valores que le pase a la página creará mayor o menor numero de nodos

¿Pero como lo hago?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de roger

RE:Ayuda Crear Nodo Dinámicamente

Publicado por roger (311 intervenciones) el 23/03/2010 14:52:34
el nombre de la instancia no podria ser dinamico, al menos de la manera que lo haces no. Pero no veo que haya necesidad que el nombre de la instancia sea dinamico, simplemente lo creas y lo agregas al treeview, solo seria eso.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ya lo resolví

Publicado por haf (138 intervenciones) el 25/03/2010 10:19:00
For k = 0 To UBound(Variables.Carpetas_Web)
Dim Nodox As New TreeNode
Carpetas_Otros_Usuarios(Nodox, Variables.Carpetas_Web(k), Variables.Carpetas_Web_Descripcion(k))
Next

Private Sub Carpetas_Otros_Usuarios(ByVal Nodo As TreeNode, ByVal ruta As String, ByVal desc As String)
Nodo.Value = ruta
If My.Computer.FileSystem.FileExists("imagenes/iconos/user.png") Then
Nodo.ImageUrl = "imagenes/iconos/user.png"
End If
Nodo.Text = desc
MuestraDirectorio(Nodo, Nodo.Value)
Me.TreeView2.Nodes.Add(Nodo)
End Sub

Private Sub MuestraDirectorio(ByVal parent As TreeNode, ByVal path As String)
Try
Dim Directorio As DirectoryInfo = New DirectoryInfo(path)
For Each d As DirectoryInfo In Directorio.GetDirectories
Dim node As TreeNode = New TreeNode(d.Name, d.FullName)
node.ImageUrl = "imagenes/carpeta.jpg"
parent.ChildNodes.Add(node)
MuestraDirectorio(node, d.FullName)
Next
Catch ex As UnauthorizedAccessException
parent.Text += " (Acceso Denegado)"
parent.ToolTip = " (Error) " + ex.Message
Catch ex As Exception
parent.Text += " (Error) " + ex.Message
parent.ToolTip = " (Error) " + ex.Message
End Try
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar