vb.net显示文件的简单介绍( 二 )


Call AddRootDirectory(DiscSymbol)
End Sub
'递归过程根据子目录寻找上级目录名--从而构成完整的目录路径
Private Sub AllPath(ByVal ThisNode As TreeNode, ByRef MyPathName As String)
If ThisNode.Level1 Then
'该节点层数大于1,其父节点不是磁盘根目录
MyPathName = ThisNode.Parent.Text"\"MyPathName
Dim MyNode As TreeNode = ThisNode.Parent
Call AllPath(MyNode, MyPathName)
Else
'该节点层数等于1,其父节点就是磁盘根目录
MyPathName = ComboBox1.TextMyPathName
End If
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
'为了搜索选中的节点对应目录的文件 , 需要组成全路径
Dim MyAllPathName As String = TreeView1.SelectedNode.Text
Dim MyNode As TreeNode = TreeView1.SelectedNode
If TreeView1.SelectedNode.Level = 0 Then
'如果选中的是根节点
MyAllPathName = ComboBox1.Text
Else
'如果选中的是非根节点,调用递归过程组成全路径
Call AllPath(MyNode, MyAllPathName)
MyAllPathName = MyAllPathName"\"
End If
'根据路径,搜索文件名并显示
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyAllPathName)
ListBox1.Items.Add(MyFile)
Next
End Sub
End Class
VB.NET怎样打开text文件并显示到文本框里文本框通常用来显示文本字符,以下是用
VB
编写的打开某
txt
文件,并把文件内容显示在文本框的步骤及代码:
1、添加必要的组件(文本框、按钮)
2、设置属性:
3、编写按钮的响应代码:
VB.NET中,文件对话框(OpenFileDialog)显示某种设定的文件类型需要修改什么属性?Filter 属性设置当前文件名筛选字符串vb.net显示文件,该字符串确定出现在对话框vb.net显示文件的“文件类型”框中vb.net显示文件的选项 。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引;
openFileDialog1.RestoreDirectory = true ;
对于每个筛选选项,筛选器字符串都包含筛选器说明,后接一垂直线条 (|) 和筛选器模式 。不同筛选选项的字符串由垂直线条隔开 。
【vb.net显示文件的简单介绍】vb.net显示文件的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于、vb.net显示文件的信息别忘了在本站进行查找喔 。

推荐阅读