·vb怎么加驱动器目录框 目录列表 文件列表框等控件啊 十万火急！！！

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

添加工具箱中的drivelistbox，dirlistbox和filelistbox控件，并写以下代码

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive ' 当驱动器改变时，设置目录路径.

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path ' 当目录改变时，设置文件路径.

End Sub

1、首先，打开VB软件，在窗体上面添加一个列表框，如下图所示。

2、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

3、在窗体上面，添加两个命令按钮，如下图所示。

4、分别设置，两个命令按钮的属性，名称分别为“复制”，“清除”，如下图所示。

5、双击“清除”命令按钮，编辑其代码，如下图所示。

6、运行程序，验证结果。选中列表框中的“语文”，点击“复制”命令按钮，则在列表框中，复制了“语文”项目；再选择“政治”，点击“清除”命令按钮，则列表框中“政治”项目消失。如下图所示。

Option Explicit

Private Sub Command1_Click()

'=======如果路径为空则不搜索=================

If Trim$(Text1.Text) = "" Then

MsgBox "输入路径", vbCritical

Text1.SetFocus

Exit Sub

End If

'===============END=========================

'======搜索出路径下所有文件=================

Dim strFileName As String

strFileName = Dir(Trim$(Text1.Text))

Do While Trim$(strFileName) <> ""

List1.AddItem strFileName

strFileName = Dir

Loop

End Sub

Private Sub Command2_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1           '列表框索引是从0开始的

If List1.Selected(i) Then

List2.AddItem List1.List(i)        '如果被选择，则添加到LIST2里

End If

Next

End Sub

Private Sub Command3_Click()

Dim i As Integer

List2.Clear

For i = 0 To List1.ListCount - 1

List2.AddItem List1.List(i)

Next

End Sub

Private Sub Command4_Click()

Dim i As Integer

'================要查询的文件名为空则不查询=================

If Text2.Text = "" Then

MsgBox "请输入要查询的文件名", vbExclamation

Text2.SetFocus

Exit Sub

End If

'=====================End================================

For i = 0 To List1.ListCount - 1

If List1.List(i) = Trim$(Text2.Text) Then

List1.Selected(i) = True         '文件定位，做一个选择

Else

List1.Selected(i) = False

End If

Next

End Sub

---