请教CommonDialog控件怎么用

Question

请教怎么让CommonDialog控件显示文件窗口只显示想显示的文件类型

Answer 1

CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "file(*.xmd)|*.xmd|all file (*.*)|*.*"
CommonDialog1.ShowSave
'***************************'
'     判断文件是否存在      '
'***************************'
FileExit = ReportFileStatus(CommonDialog1.filename)
If FileExit = True Then
   ExitYesOrNo = MsgBox("文件已存在,是否覆盖?", vbOKCancel, "文件已存在")
   If ExitYesOrNo = 2 Then Exit Sub
Else
End IfOpen CommonDialog1.filename For Output As #1
Print #1, labname
Print #1, classname
Print #1, username
Print #1, caiyang
Print #1, tmpData(caiyang, 9)
Print #1, caiyangzhq
For i = 1 To caiyang
Print #1, tmpData(i, 9), tmpData(i, 1), tmpData(i, 2), tmpData(i, 3), tmpData(i, 4), tmpData(i, 5), tmpData(i, 6), tmpData(i, 7), tmpData(i, 8)
Next i
Close #1
qq = False
Exit Sub
ErrHandler:

Answer 2

用filter属性
格式：
后缀名|后缀名

Answer 3

filter="Text File(*.txt)|*.txt|ASM  (*.asm)|*.asm"

Answer 4

CommonDialog1.Filter = "file(*.xmd)|*.xmd|all file (*.*)|*.*"
在上面把你要的类型,添进去就可以了