利用VB控件操作目录和文件夹

3、文件列表框

　　文件列表框用来显示当前目录中的部分或者全部文件.文件列表框的大部分属性和一般的列表框相同,都具有大小,位置,字体,颜色等以及List,ListCount,ListIndex等属性.下面是主要的属性:

属性	Path	本属性用于返回或设置运行时选择的路径以显示其下的文件，默认路径为当前路径.改变Dri属性会触发PathChange事件. 示例: File1.Path= Dri1.Path 设置在目录列表框中选中的路径为文件列表的当前路径.
	Pattern	本属性用来确定程序运行时,列表框中显示那些类型的文件.除了使用”*” ”?”等通配符外,在参数中还可以使用分号”;”来分割多种文件类型.例如:”*.ext;*.bat”
	FileName	本属性返回或设置所选文件的路径和文件名.可以从本属性值中返回当前列表中选择的文件名.路径可用Path属性单独检索.在功能上,本属性值与ListIndex等价.如果没有文件被选中,FileName属性将返回0长度的字符串.改变甭属性值可能会产生一个或多个如下事件:PathChange(如果改变路径),PatternChange(如果改变模式),DblClick(如果指定存在的文件)
事件	Click	当选择一个新的文件时触发该事件

　　下面是示例代码:

Private Sub File1_Click() Picture1.Picture = LoadPicture(Dir1.Path & " \ " & File1.FileName) ‘在图片框中显示选定的图形文件. End Sub

　　4、标准对话框

　　CommonDialog控件提供了一组标准的操作对话框，进行诸如打开，和保存文件,设置打印选项,以及选择颜色和字体等操作.通过运行windows帮助引擎还能显示帮助.

　　CommonDialog控件在visual basic和Microsoft Windows动态链接库commdlg.dll的例程之间提供了一个接口.为了用这个控件创建一个对话框,commdlg.dll必须存在于microsoft Windows的system目录下.然后再visual basic中选择工程/部件,并在显示的部件对话框中选中Microsoft common　Dialog Control 6.0,确定后,在工具栏里就显示了出来.如下图所示:



　　在应用程序中要使用CommonDialog控件,可将其添加到窗体中并设置其属性.控件所显示的对话框有控件的方法确定.在运行时,当相应的方法被调用时,将显示一个对话框或是执行帮助引擎;在设计时,CommonDialog 控件是以图标的形式显示在窗体中的.该图标的大小不能改变.

　　使用指定的方法,CommonDialog控件能够显示下列对话框:

方法	所显示的对话框
ShowOpen	显示[打开]对话框
ShowSave	显示[另存为]对话框
ShowColor	显示[颜色]对话框
ShowFont	显示[字体]对话框
ShowPrinter	显示[打印]或[打印选项]对话框
Showhelp	显示windows帮助引擎

　　下面是它的主要属性,方法:

属性	Filer	该属性应用于CommonDialog控件中的[打开][另存为]对话框.本属性用来返回或设置在对话框[类型]列表框中显示的过滤器.过滤的作用是确定对话框中文件列表框中显示的文件类型.例如:设置为*.txt时,将显示文本文件.要显示多种类型的文件,可以用管道(|)符号(ASCII124)将他们分开.管道符号前后不能加空格.如:*.rm|*.rmvb
	Action	该属性返回或设置一个表示所显示对话框类型的整数.具体如下.
		设置数值	说明
		0	没有操作
		1	显示[打开]对话框
		2	显示[另存为]对话框
		3	显示[颜色]对话框
		4	显示[字体]对话框
		5	显示[打印]或[打印选项]对话框
		6	运行WINHLP32.EXE
	FileName	本属性应用于CommonDialog控件的[打开][另存为]对话框. 本属性返回或设置所选文件的路径和文件名.如果在运行时被创建,FileName属性将返回0长度的字符串,表示当前没有选择文件.在CommonDialog控件里,可以在打开对话框之前设置FileName属性来设定初始文件名. 可以从本属性值中返回当前列表中选择的文件名.路径可用Path属性单独检索.在功能上,本属性值与ListIndex等价.如果没有文件被选中,FileName属性将返回0长度的字符串. 改变甭属性值可能会产生一个或多个如下事件:PathChange(如果改变路径),PatternChange(如果改变模式),DblClick(如果指定存在的文件)
事件	Click	当选择一个新的文件时触发该事件

　　下面是一个例子:

　　我们在这里要做一个VCD的播放器，下面是界面.



　　下表是其中所用到的控件及其属性设置:

对象	特性	设置值
窗体	名称	Frmvcd
	BorderStyle	1
	Caption	VCD播放器
菜单	标题	文件
	名称	Mnufile
	标题	打开
	名称	Mnuopen
	标题	播放
	名称	Mnuplay
	标题	退出
	名称	Mnuexit
	标题	选项
	名称	Mnuoption
	标题	连续播放
	名称	Mnurepeat
	标题	静音
	名称	Mnuslient
多媒体控件	名称	Mmcontrol
Picture控件	名称	Picture1
通用对话框	名称	Commondialog1

　　下面是主要程序代码代码:

Private Sub mnuopen_Click() ’当点击菜单中的打开时执行 　'在未选择文件时,文件名为空字符,播放菜单不可用 　mnuplay.Enabled =False 　CommonDialog1.FileName = "" 　'下面语句设置文件过滤方式,可显示扩展名为avi,dat,wav和mid文件 　CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(vcd *.dat)|*.dat|(midi *.mid)|*.mid" 　'初始化文件过滤方式为*.avi 　CommonDialog1.FilterIndex = 1 　'建立打开方式的通用对话框,也可使用commondialog1.showopen 　CommonDialog1.Action = 1 　'打开一个文件前先关闭前一次被打开的多媒体设备 　MMControl1.Command = "close" 　Select CommonDialog1.FilterIndex 　　Case 1 '选择*.avi 　　　'设置多媒体设备类型为avividio 　　　MMControl1.DeviceType = "avividio" 　　　'设置时间格式为帧 　　　MMControl1.TimeFormat = 3 　　　'设置播放的文件为通用对话框中选择的文件 　　　MMControl1.FileName = CommonDialog1.FileName 　　　'打开文件 　　　MMControl1.Command = "open " 　　Case 2 '选择*.wav 　　　'设置多媒体设备类型为waveaudio 　　　MMControl1.DeviceType = "waveaudio" 　　　'设置时间格式为帧 　　　MMControl1.TimeFormat = 3 　　　'设置播放的文件为通用对话框中选择的文件 　　　MMControl1.FileName = CommonDialog1.FileName 　　　'打开文件 　　　MMControl1.Command = "open " 　　Case 3 '选择*.dat 　　　'设置多媒体设备类型为Mpegvidio 　　　MMControl1.DeviceType = "Mpegvidio" 　　　'设置时间格式为帧 　　　MMControl1.TimeFormat = 3 　　　'设置播放的文件为通用对话框中选择的文件 　　　MMControl1.FileName = CommonDialog1.FileName 　　　'打开文件 　　　MMControl1.Command = "open " 　　Case 4 '选择*.mid 　　　'设置多媒体设备类型为waveaudio 　　　MMControl1.DeviceType = "waveaudio" 　　　'设置时间格式为帧 　　　MMControl1.TimeFormat = 3 　　　'设置播放的文件为通用对话框中选择的文件 　　　MMControl1.FileName = CommonDialog1.FileName 　　　'打开文件 　　　MMControl1.Command = "open " 　　End Select 　　'设置hwnddisplay的值,使媒体文件能够在picture控件中播放 　　MMControl1.hWndDisplay = Picture1.hWnd End Sub