Filter 指的是文件篩選器,也就是讓文件列表中只顯示某一類型的文件。
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比讓胡路網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式讓胡路網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們,業(yè)務覆蓋讓胡路地區(qū)。費用合理售后完善,十載實體公司更值得信賴。
比如想只顯示 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 屬性設置當前文件名篩選字符串,該字符串確定出現(xiàn)在對話框的“文件類型”框中的選項。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設置文件對話框中當前選定篩選器的索引;
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項,篩選器字符串都包含篩選器說明,后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。