十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Filter 指的是文件筛选器,也就是让文件列表中只显示某一类型的文件。
创新互联-专业网站定制、快速模板网站建设、高性价比让胡路网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式让胡路网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖让胡路地区。费用合理售后完善,十载实体公司更值得信赖。
比如想只显示 TXT 文本文件,那么就是:
CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
如果想像下图这个样子有多个类型可以选择:
CommonDialog1.Filter = "位图文件(*.txt;*.dib)|*.txt;*.dib|JPEG(*.jpg;*.jpeg;*.jpe;*.jfif)|jpg;*.jpeg;*.jpe;*.jfif|GIF(*.gif)|*.gif|所有文件|*.*"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "c:\windows\system"
For Each ws In My.Computer.FileSystem.GetFiles(a)
Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定义扩展名变量
If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '这里一定要注意扩展名的大小写,如aviAVI的
Me.ListBox1.Items.Add(ws)
End If
Next
End Sub
Filter 属性设置当前文件名筛选字符串,该字符串确定出现在对话框的“文件类型”框中的选项。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引;
openFileDialog1.RestoreDirectory = true ;
对于每个筛选选项,筛选器字符串都包含筛选器说明,后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。