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

Question

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

Answer 1

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

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


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

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

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

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

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

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这种形式的代码解题么？辣个我真看不懂😭😭😭