Dim strFileName ( ) As String '定義一個字符串數組 Dim OpenFileDialog1 As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog ( ) '創建一個OpenFileDialog實例 With OpenFileDialog1 .Filter = "Text files (*.txt)*.txtAll files (*.*)*.*" '設定文件類型過濾條件為:文本類型和全部文件 .FilterIndex = 1 '設定打開文件對話框缺省的文件過濾條件 .InitialDirectory = "C:/" '設定打開文件對話框缺省的目錄 .Title = "打開文件" '設定打開文件對話框的標題 .Multiselect = True '設定可以選擇多個文件 .ReadOnlyChecked = False '設定選中"只讀"復選框 .ShowReadOnly = True '設定顯示"只讀"復選框 End With '設定打開文件對話框的式樣和功能 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then ' 顯示打開文件對話框,并判定單擊對話框中的"確定"按鈕 strFileName = OpenFileDialog1.FileNames Dim s As String Dim i As Integer For i = 0 To strFileName.Length - 1 s = s + strFileName( i ) + Chr( 10 ) + Chr( 13 ) Next '處理打開文件選擇框選擇的文件 MessageBox.Show( s , "選擇的文件名列表") End If
Dim PrintDocument1 As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument ( ) '創建一個打印文檔 Dim PrintPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog ( ) With PrintPreviewDialog1 .MaximizeBox = False .Text = "打印預覽窗口" End With '設定打印預覽窗口的屬性 PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog ( )