大清早就来送分了，关于如何使用CommonDialog

Question

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.ShowSave
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit SubErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub

Answer 1

wa....wa..w...a...wa.....
so easy

Answer 2

    CommonDialog1.DefaultExt = ".bmp"
    CommonDialog1.Filter = "Bitmap Image (£ª.bmp)|£ª.bmp"
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then
    SavePicture Picture1.Picture, CommonDialog1.FileName
    End If

Answer 3

那位老兄的回答完全是MSDN里的！
你也查一下看看吧！
记的查中文的MSDN噢！