Question

用vb写程序:“打开文件”“保存文件”“字体”“颜色”“结束”按钮，弹出通用对话框分别表示出来

设计一个如图所示的应用程序。
要求如下：
1.单击“打开文件”按钮，弹出一个通用对话框，选择文件后显示在文本框中。
2.单击“保存文件”按钮，弹出一个通用对话框，确定文件名后保存。
3.单击“字体”按钮，弹出一个通用对话框，选择字体后显示在文本框中。
4.单击“颜色”按钮，弹出一个通用对话框，选择颜色后显示在文本框中。
5.单击“结束”按钮，结束应用程序。

Answer 1

建议在工程中添加CommonDialog 控件，CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行
Windows 帮助引擎控件还能显示帮助。

1. 通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
   方法可显示“打开”和“另存为”对话框。
   

2. 通过使用 CommonDialog 控件的 ShowPrinter 方法可显示“打印”对话框。“打印”对话框可用以指定打印输出方式。可以指定被打印页的范围，打印质量，打印的份数等等。这个对话框还包含当前安装的打印机的信息，并允许配置或重新安装缺省打印机。

3. 通过使用 CommonDialog 控件的 ShowColor
   方法可显示“颜色”对话框。“颜色”对话框用以从调色板选择颜色，或是生成和选择自定义颜色。

4. 使用 CommonDialog 控件的 ShowFont
   方法可显示“字体”对话框。“字体”对话框用以通过指定字体、大小、颜色、样式选择一种字体。

5. CommonDialog
   控件（“打开”、“另存为”对话框）示例

   下例显示“打开”对话框然后在信息框中显示所选的文件名：（仅供参考，任何打印、字体、颜色代码请参考VISUAL STUDIO6.0的MSDN6.0中的相关代码进行修改和编写。）

6. Private Sub Command1_Click()
       ' 设置“CancelError”为 True
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
       ' 设置标志
       CommonDialog1.Flags = cdlOFNHideReadOnly
       ' 设置过滤器
       CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
       "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
       ' 指定缺省的过滤器
       CommonDialog1.FilterIndex = 2
       ' 显示“打开”对话框
       CommonDialog1.ShowOpen
       ' 显示选定文件的名字
       MsgBox CommonDialog1.FileName
       Exit Sub
   
   ErrHandler:
       ' 用户按了“取消”按钮
       Exit Sub
   End Sub

追问

您好，有command12345这种形式的代码解题么？辣个我真看不懂😭😭😭