參數

屬性

方法

範例

Action=1

Open（開檔）

ShowOpen

CommonDialog1.ShowOpen
CommonDialog1.Action=1

Action=2

Save As（存檔）

ShowSave

CommonDialog1.ShowSave
CommonDialog1.Action=2

Action=3

Print（列印）

ShowPrint

CommonDialog1.ShowPrint
CommonDialog1.Action=3

Action=4

Color（顏色）

ShowColor

CommonDialog1.ShowColor
CommonDialog1.Action=4

Action=6

Windows Help（線上求助）

ShowHelp

CommonDialog1.ShowHelp
CommonDialog1.Action=6

檔案類型Filter

Filter

CommonDialog1.Filter="字串|格式"
CommonDialog1.Filter="文字檔|*.Txt"

物件

屬性

屬性值

檔案

File

Tex1

Text

空白

Open

MnuOpen

MultiLine多行

True

Save As

MnuSave

CommonDialog1

程式敘述中設定

Clear

MnuClear

Dim TheFileName As String

宣告字串變數

Private Sub Form_Resize()
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End Sub

設定當表單改變大小時，文字方塊也能跟著變動

Private Sub mnuClear_Click()
Text1.Text = ""
End Sub

設定功能表中Clear選項的清除內容敘述

Private Sub mnuOpen_Click()
CommonDialog1.Filter = "Text File (*.txt)|*.txt" '設定開啟檔案的類型
CommonDialog1.ShowOpen '秀出開啟檔案視窗
TheFileName = CommonDialog1.FileName '記錄檔名
Form1.Caption = Form1.Caption + "-" + TheFileName '顯示開啟檔案的檔名在標題列
TextBuffer$ = "" '設定文字暫存區
If TheFileName <> "" Then
Open TheFileName For Input As #1
Do Until EOF(1) '利用EOF函數來判定是否讀到檔案結尾
Line Input #1, OneLineText$ '一次讀入一行
TextBuffer$ = TextBuffer$ + OneLineText$ '併入字串緩衝區
Loop
Close #1
Text1.Text = TextBuffer$ '將讀入的資料顯示到文字方塊中
End If
TheFileName = ""
End Sub

Private Sub mnuSave_Click()
CommonDialog1.Filter = "Text File (*.txt)|*.txt" '設定存檔的類型
CommonDialog1.Action = 2 '秀出另存檔案視窗.
TheFileName = CommonDialog1.FileName '記錄檔名
If TheFileName <> "" Then
Open TheFileName For Output As #1 '打開檔案來輸出資料
Print #1, Text1.Text '利用Print敘述把資料寫出去
Close #1
End If
TheFileName = ""
End Sub