紀錄些小事情

一、OpenFileDialog 元件常用屬性和方法

1、FileName 屬性：

一個包含在檔對話方塊中選定的檔案名的字串，包括檔的完整路徑。

2、FileNames 屬性：

獲取對話方塊中所有選定檔的檔案名。

3、AddExtension 屬性：

指示如果用戶省略副檔名，對話方塊是否自動在檔案名中添加副檔名。

4、CheckFileExists 屬性：

指示如果用戶指定不存在的檔案名，對話方塊是否顯示警告。

5、CheckPathExists 屬性：

獲取或設置一個值，該值指示如果用戶指定不存在的路徑，對話方塊是否顯示警告。

6、DefaultExt 屬性：

默認檔副檔名，返回的字串不包含句點 (.)，預設值為一空字串 ("")。當用戶輸入檔案名時未指定檔的副檔名則自動以該屬性來補全副檔名，如果 DefaultExt 屬性為默認空字串，則以當前選定的篩選器中的文件類型來補全缺少的文件副檔名。

7、DereferenceLinks 屬性：

指示對話方塊返回的是快捷方式引用的檔的位置(設置為True)還是返回快捷方式(.lnk)的位置(設置為False)。

預設值為True，即選中快捷方式的時候，FileName 返回的是檔的真實路徑，如果該值為False，則返回的是該快捷方式所在的位置。

8、Filter 屬性：

當前檔案名篩選器字串，該字串決定對話方塊的“另存為檔類型”或“檔類型”框中出現的選擇內容。

9、FilterIndex 屬性：

獲取或設置檔對話方塊中當前選定篩選器的索引。

10、InitialDirectory 屬性：

檔對話方塊顯示的初始目錄。

11、Multiselect 屬性：

指示對話方塊是否允許選擇多個檔。

12、ShowReadOnly 屬性：

指示對話方塊是否包含唯讀核取方塊。當它為True的時候，將會在如圖一紅圈的位置顯示“以唯讀方式打開”的核取方塊。ReadOnlyChecked 屬性：指示是否選定唯讀核取方塊，默認為False，需要與 ShowReadOnly 屬性配合使用。

13、RestoreDirectory 屬性：

指示對話方塊在關閉前是否還原當前目錄。

14、Title 屬性：

獲取或設置檔對話方塊標題。


我們通過 ShowDialog 方法來顯示“打開”對話方塊。通過 OpenFile 方法以唯讀方式打開一個選定的檔，如果需要進行寫操作，則必須使用 StreamReader 類的實例打開檔。



*****************************************************************

下面我們就演示如何使用 OpenFileDialog 元件來打開檔。

二、以唯讀方式打開檔



在表單的Button按鈕添加如下代碼：



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



Dim myStream As System.IO.Stream



openFileDialog1.InitialDirectory = "c:\"



openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"



openFileDialog1.FilterIndex = 2



OpenFileDialog1.RestoreDirectory = True



If OpenFileDialog1.ShowDialog() = DialogResult.OK Then



MsgBox(OpenFileDialog1.FileName)



myStream = OpenFileDialog1.OpenFile()



If Not (myStream Is Nothing) Then



MessageBox.Show(myStream.Length.ToString)



myStream.Close()



End If



End If



End Sub



如果需要對打開的檔進行操作，就不能使用 OpenFile 方法了，我們需要使用 Stream 類來打開，如下代碼所示：



openFileDialog1.InitialDirectory = "c:\"



openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"



openFileDialog1.FilterIndex = 2



OpenFileDialog1.RestoreDirectory = True



If OpenFileDialog1.ShowDialog() = DialogResult.OK Then



Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)



http://www.qqread.com/book/myvbnet/my0037.html



MessageBox.Show(sr.ReadToEnd)



sr.Close()



End If