liub1979 发表于 2004-6-21 23:39:00

CommonDialog???

前几天到自定义区看了看,发现了一个有用的函数,于是下了.


但里面提到的CommonDialog类,我的VBA不认得,程序运行到Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant 就出错!!!怎么办?


现将程序片段贴出,还请各位师傅指点迷津.


'通过选定多个图形文件插入到图形中的过程


Sub IntBlkBySelectDwg()


....


End Sub


'选定多个文件的函数，使用了CommonDialog类 <BR>Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant


Dim dlg As CommonDialog <BR>Dim Files As Variant <BR>Dim i As Integer


Set dlg = New CommonDialog <BR>With dlg <BR>                       .DialogTitle = DialogTitle <BR>                       .DefaultExt = DefaultExt <BR>                       .Filter = Filter <BR>                       .Flags = OFN_EXPLORER Or OFN_HIDEREADONLY Or OFN_ALLOWMULTISELECT <BR>                       If .ShowOpen Then <BR>                                                       getFileBySelect = .ParseFileNames <BR>                       End If <BR>End With


End Function


'由文件全路径名称返回文件的函数 <BR>....

雪山飞狐_lzh 发表于 2004-6-21 23:54:00

在附加控件选项选择


mccad 发表于 2004-6-22 07:22:00

其实选择文件对话框可以通过多种方式来实现：


1.就是飞狐版主所说的使用控件。应该说是比较简单的方法。<BR>2.使用CommonDialog类，该类的下载地址<BR>               <A href="http://www.mjtd.com/mcdown/list.asp?id=83" target="_blank" >http://www.mjtd.com/mcdown/list.asp?id=83</A>        而示例可以在二次开发的栏目中找到。<BR>3.使用API方法，见 <A href="http://www.mjtd.com/a2/list.asp?id=472" target="_blank" >http://www.mjtd.com/a2/list.asp?id=472</A>

liub1979 发表于 2004-6-22 21:20:00

谢谢版主!谢谢老大!

3xxx 发表于 2012-4-4 11:03:46

又学习了。谢谢！
页: [1]
查看完整版本: CommonDialog???