vb.net使用ListView 控件显示系统驱动器

来源：qqread 作者：douces 出处：巧巧读书 2008-01-12 进入讨论组

• 关 键 词：
• windows操作系统
• microsoft
• director
• vb.net
• 网络硬盘

上一页 1 2 3 4 5 6 下一页 

三、代码编写

1、首先在Form1窗体代码中添加命名空间的引用：

Imports System.IO

Imports Scripting

然后定义一个全局变量

Public StrDrive() As String '驱动器数组

2、为菜单的四个子菜单编写代码，代码如下：

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

ListView1.View = View.LargeIcon

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

ListView1.View = View.SmallIcon

End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

ListView1.View = View.List

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

If ListView1.Items.Count > 0 Then

ListView1.View = View.Details

If ListView1.Columns.Count = 0 Then

'如果不在这里添加列标头，则View=List的时候无法显示

'为控件添加列标头

ListView1.Columns.Add("名称", -1, HorizontalAlignment.Center)

ListView1.Columns.Add("类型", -1, HorizontalAlignment.Center)

ListView1.Columns.Add("大小", -1, HorizontalAlignment.Center)

ListView1.Columns.Add("可用空间", -1, HorizontalAlignment.Center)

'下面代码为自动调整ListView1列的宽度

Dim i As Integer

For i = 0 To 3

ListView1.Columns(i).Width = -1

Next

End If

End If

End Sub

浏览URL http://www.qqread.com/book/myvbnet/my0046.html 更多内容请看系统优化大全、系统安全设置、系统安装手册专题，或进入讨论组讨论。

上一页 1 2 3 4 5 6 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb.net入门——ListView 控件的使用

较新的文章：VB2005中开发新一代控制台应用程序(3)