VB利用对话框设计“打开”、“保存”、“打印”、“字体”、"颜色"和“帮助”对话框。

Private Sub Command1_Click()
Dim i As Integer
Dim Intfilenum As Integer
If option1.Value = True Then
CommonDialog1.Filter = "文本文件（*.Text）|*.Txt"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End If
If Option2.Value = True Then
Intfilenum = FreeFile()
CommonDialog1.Filter = "文本文件（*.Text）|*.Txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
If Option3.Value = True Then
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End If
If Option4.Value = True Then
commodialog1.ShowPrinter
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Next
Printer.EndDoc
End If
If Option5.Value = True Then
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
Text1.FontName

vb 字体对话框设计 在vb中如何设计一个打开对话框并能打开文件呢? VB中通用对话框怎么打开？ vb 如何打开文件已存在对话框 vb源码 利用概率原理设计中奖程序 vb 对话框 VB 对话框 [VB]如何用api函数调用打开、保存对话框？ vb如何用通用对话框打开图片文件 如何通过VB实现从运行对话框打开文件？