开始看一下Treeview控件。
无论如何,是否有使用Visual Basic将树 View 控件绑定(bind)到Web服务器上的目录结构中的?
我有很多旧文件,这些文件经常更新和添加。显然,我可以用XML对结构进行编码,但这很费力,而且很难向最终用户进行培训。
我想这可能是动态创建XML文件吗?
最佳答案
这是我不久前在学习使用TreeView时创建的基本示例。现在,为了您的利益,我已经使用online converter将代码转换为VB.NET。
它从虚拟目录的根开始递归遍历目录树,并为遇到的每个子目录或文件创建节点。我认为这正是您所需要的。
为了进行视觉分离,我使用了图标来区分文件和文件夹(folder.gif和file.gif)。您可以根据需要删除该参数。
完整的ASPX如下(您可以将其粘贴到新页面中并且应该运行):
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Not Page.IsPostBack Then
Dim rootDir As New DirectoryInfo(Server.MapPath("~/"))
' Enter the RecurseNodes function to recursively walk the directory tree.
Dim RootNode As TreeNode = RecurseNodes(rootDir)
' Add this Node hierarchy to the TreeNode control.
Treeview1.Nodes.Add(RootNode)
End If
End Sub
Private Function RecurseNodes(ByVal thisDir As DirectoryInfo) As TreeNode
Dim thisDirNode As New TreeNode(thisDir.Name, Nothing, "Images/folder.gif")
' Get all the subdirectories in this Directory.
Dim subDirs As DirectoryInfo() = thisDir.GetDirectories()
For Each subDir As DirectoryInfo In subDirs
thisDirNode.ChildNodes.Add(RecurseNodes(subDir))
Next
' Now get the files in this Directory.
Dim files As FileInfo() = thisDir.GetFiles()
For Each file As FileInfo In files
Dim thisFileNode As New TreeNode(file.Name, Nothing, "Images/file.gif")
thisDirNode.ChildNodes.Add(thisFileNode)
Next
Return thisDirNode
End Function
</script>
<html>
<head>
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<asp:treeview ID="Treeview1" runat="server"></asp:treeview>
</form>
</body>
</html>
关于asp.net - TreeView VB中的目录结构,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/907307/