SaveFileDialog 組件也是.net預(yù)設(shè)的有模式對(duì)話框之一,顯示的是系統(tǒng)的“另存為”對(duì)話框,如下圖一所示。我們可以通過它來快速開發(fā)一個(gè)能讓用戶馬上熟悉和方便使用的Windows應(yīng)用程序界面。
在vb.net的工具箱中,SaveFileDialog 組件圖下圖一所示:
SaveFileDialog 組件的大部分屬性與OpenFileDialog 組件使用時(shí)一樣的(相關(guān)文章參看:vb.net入門——OpenFileDialog 組件的使用)。
當(dāng)我們需要讓用戶彈出“另存為”對(duì)話框時(shí),目錄就指向一個(gè)指定的位置,我們用下面的代碼來實(shí)現(xiàn):
SaveFileDialog1.InitialDirectory = "C:\"
指定對(duì)話框打開的初始位置為盤符C:
設(shè)置對(duì)話框的文件過濾器,各個(gè)文件類型之間以“|”分隔,如下代碼所示:
SaveFileDialog1.Filter = "txt files|*.txt|All files|*.*"
我們還可以自定義對(duì)話框的標(biāo)題,默認(rèn)是“另存為”,以下代碼可以實(shí)現(xiàn)我們自定義的標(biāo)題:
SaveFileDialog1.Title = "保存文字"
和OpenFileDialog 組件一樣,我們是使用它的 ShowDialog 方法來給用戶顯示對(duì)話框的,OpenFile 方法將會(huì)以打開可讀/寫的權(quán)限打開用戶選定的文件。
示例,如下代碼所示,我們使用OpenFile方法打開一個(gè)Stream,然后就可以使用它對(duì)數(shù)據(jù)進(jìn)行存取。
Dim myStream As System.IO.Stream
SaveFileDialog1.InitialDirectory = "C:\"
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.Title = "保存"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = SaveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
'在這里添加寫入文件的代碼
myStream.Close()
End If
End If
聯(lián)系客服