如何定制公用对话框commondialog

fjy602

请问如何定制公用对话框commondialog.showopen与cad2004的打开文件对话框一样，因为标准的公用对话框没有如预览等功能?

zfbj

无法获得这样的结果。

雪山飞狐_lzh

Public Function GetFile(ByVal Path As String) As String
Dim pVlax As New VLAX
If Right(Path, 1) <> "\" Then Path = Path & "\"
Path = Replace(Path, "\", "\\")
GetFile = pVlax.EvalLispExpression("(getfiled ""选择文件"" """ & Path & """ ""dwg"" 8)")
Set pVlax = Nothing
End Function Public Sub ggg()
MsgBox GetFile(Application.Path)
End Sub

fjy602

哪位大哥有commondialog的使用源码，请上传一下或发到我邮箱(fjy602@163.com),不胜感激!!谢谢!

雪山飞狐_lzh

实用函数里有