资源管理器
2009242007 郭晓敏
【实验名称】
资源管理器
【实验目的】
通过对 XP 系统资源管理器的编写，深入了解面向对象的程序的思想与
实现,并能初步掌握对于在 VB.Net 下的消息机制的调用以及对控件（如
treeview 和 listview）的操作和对控件事件的使用。
【掌握内容】
通过这个实验，基本掌握了程序设计的整个过程，学会了对磁盘，文件
以及文件夹的一些操作，函数之间的参数传递，以及 VB 面向对象的一些编程
技能。掌握基于模块的窗体之间的调用,treeview 和 listview 的使用,利用控
件和窗体的事件驱动来控制整个程序的进行。
【问题描述及基本要求】
本程序为一个模仿 XP 系统的资源管理器，运行程序后左边的 treeview
中会出现运行电脑上的磁盘及各个磁盘掩藏的下一级目录。当点击 treeview
中的树节点时，treeview 会为此节点添加其下一级的下一级节点，并在
listview 中添加此节点的下一级目录或者文件，并在地址栏显示当前点击节
点的路径。当双击 listview 中的项目时会为此项目显示下一级目录，并在地
址栏上显示路径。当点击后退按钮时，listview 和地址栏显示上次显示的内
容。当右击 listview 中的项目时会出现菜单（包括复制，粘帖，删除和新
建），并能分别实现菜单中的功能。
【算法描述】
1.treeview 中加载磁盘及下一级目录：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim a() As DriveInfo
Dim count, i, j As Integer
Dim b As Array
a = DriveInfo.GetDrives()
count = DriveInfo.GetDrives.Count
TvwData.Nodes.Clear()
For i = 0 To count - 1
td = TvwData.Nodes.Add(a(i).Name.Remove(2, 1))
'Cb.Items.Add(a(i).ToString())
If a(i).IsReady Then
b = Directory.GetDirectories(a(i).Name)
If b.Length <> 0 Then
For j = 0 To b.Length - 1
td1 = td.Nodes.Add(b(j).ToString().Remove(0, 3))
Next
- 1
- 2
前往页