fjy602 发表于 2004-8-20 11:30:00

如何定制公用对话框commondialog

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

zfbj 发表于 2004-8-21 14:17:00

无法获得这样的结果。

雪山飞狐_lzh 发表于 2004-8-21 23:02:00

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



Public Sub ggg()<BR>MsgBox GetFile(Application.Path)<BR>End Sub<BR>

fjy602 发表于 2004-9-3 16:31:00

哪位大哥有commondialog的使用源码，请上传一下或发到我邮箱(<A href="mailto:fjy602@163.com" target="_blank" >fjy602@163.com</A>),不胜感激!!谢谢!

雪山飞狐_lzh 发表于 2004-9-4 20:55:00

实用函数里有
页: [1]
查看完整版本: 如何定制公用对话框commondialog