|
|
努力了几天，没有成功，今日偶然发现 xsk199529 发的API调用模块，重新整理了一下代码。
原帖地址：
xxCommonDialog 类模块方法说明：
1、xxGetOpenfileName(ByVal title As String, ByVal basePath As String, xxFilter As Variant, isMulti As Boolean) As String()
xxGetOpenfileName（标题，默认路径，过滤器，是否多选）返回值 字符串数组
不管是否多选，均返回字符串数组，如果用户取消操作或函数错误，则返回数组的第一个元素为 “” 空字符串
不管是单选还是多选，如果只选择了一个文件，则返回数组的第一个元素即为选择文件的完整路径
如果是多选，且选择了不止一个文件，则返回数组的第一个元素为选择路径，第二至ubound个元素为选择的文件名
2、xxGetSavefileName(ByVal title As String, ByVal basePath As String, xxFilter As Variant) As String
xxGetSavefileName（标题，默认路径，过滤器） 返回值 字符串
只支持单文件保存，如果用户取消或者函数失败，则返回 “” 空字符串 。成功返回完整保存文件名
过滤器：使用array()数组生成，必须成对出现。
例如文本文件以及CAD文件可以这么写 ：Array("文本文件（*.txt）", "*.txt", "dwg文件（*.dwg）", "*.dwg")。
显示全部文件请直接输入 “” 空字符串 ，其他内容可能会发生错误。
cad2008、cad2014中测试
个人能力有限，疏漏错误在所难免，欢迎大家共同探讨，共同进步。
|
|
置顶卡
