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

CommonDialog???

前几天到自定义区看了看,发现了一个有用的函数,于是下了.
但里面提到的CommonDialog类,我的VBA不认得,程序运行到Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant 就出错!!!怎么办?
现将程序片段贴出,还请各位师傅指点迷津.
'通过选定多个图形文件插入到图形中的过程
Sub IntBlkBySelectDwg()
....
End Sub
'选定多个文件的函数，使用了CommonDialog类
Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant
Dim dlg As CommonDialog
Dim Files As Variant
Dim i As Integer
Set dlg = New CommonDialog
With dlg
                       .DialogTitle = DialogTitle
                       .DefaultExt = DefaultExt
                       .Filter = Filter
                       .Flags = OFN_EXPLORER Or OFN_HIDEREADONLY Or OFN_ALLOWMULTISELECT
                       If .ShowOpen Then
                                                       getFileBySelect = .ParseFileNames
                       End If
End With
End Function
'由文件全路径名称返回文件的函数
....

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

在附加控件选项选择

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

其实选择文件对话框可以通过多种方式来实现：
1.就是飞狐版主所说的使用控件。应该说是比较简单的方法。
2.使用CommonDialog类，该类的下载地址
                       而示例可以在二次开发的栏目中找到。
3.使用API方法，见

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

谢谢版主!谢谢老大!

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

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