通用对话框[多选对话框]系统对话框

NOCOL

  

窗口程序集名	保 留	保 留	备 注
通用对话框类
变量名	类 型	数组	备 注
文件覆盖提示1	整数型		当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。
目录必须存在1	整数型		是否允许用户指定一个不存在的目录。默认值为真。
不改变目录1	整数型		在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。
是否多选1	整数型		是否需要使用多选。默认值为假。
文件记录	字节集
打开文件	打开文件名_
创建时提示1	整数型		当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为假。
文件必须存在1	整数型		当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

创建时提示1 ＝ #OFN_CREATEPROMPT
文件必须存在1 ＝ #OFN_FILEMUSTEXIST
文件覆盖提示1 ＝ #OFN_OVERWRITEPROMPT
目录必须存在1 ＝ #OFN_PATHMUSTEXIST
不改变目录1 ＝ 0
是否多选1 ＝ 0

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
文件对话框初始化
参数名	类 型	参考	可空	数组	备 注
过滤器	文本型				成对使用，例如：“MP3文件（*.mp3）|*.mp3|mpg文件（*.mpg）|*.mpg”
初始过滤器	整数型				指定初始的过滤器，0为第一个过滤器。默认值为0。
初始目录	文本型				指定当打开对话框时所自动跳转到的目录。如不指定，则一般情况下默认路径为从“我的文档”开始。
默认文件后缀	文本型				指定当用户没有输入文件的后缀名称（扩展名）时所自动使用的文件后缀名称
创建时提示	逻辑型				当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为真。
文件必须存在	逻辑型				当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。
文件覆盖提示	逻辑型				当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。
目录必须存在	逻辑型				是否允许用户指定一个不存在的目录。默认值为真。
不改变目录	逻辑型				在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。
是否多选	逻辑型				是否需要使用文件多选。默认值为假。

打开文件.实例句柄 ＝ 取实例句柄_ (取执行文件名 ())
打开文件.过滤器 ＝ 子字节集替换 (到字节集 (删全部空 (过滤器)), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }
打开文件.过滤器索引 ＝ 选择 (初始过滤器 ≤ 0, 1, 初始过滤器 ＋ 1)
打开文件.初始目录 ＝ 初始目录
打开文件.默认扩展名 ＝ 默认文件后缀
如果真 (是否为空 (创建时提示) ＝ 假)
创建时提示1 ＝ 选择 (文件必须存在, #OFN_CREATEPROMPT, 0)
' //当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为假。

如果真 (是否为空 (文件必须存在) ＝ 假)
文件必须存在1 ＝ 选择 (文件必须存在, #OFN_FILEMUSTEXIST, 0)
' //当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。

如果真 (是否为空 (文件覆盖提示) ＝ 假)
文件覆盖提示1 ＝ 选择 (文件覆盖提示, #OFN_OVERWRITEPROMPT, 0)
' //当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。
如果真 (是否为空 (目录必须存在) ＝ 假)
目录必须存在1 ＝ 选择 (目录必须存在, #OFN_PATHMUSTEXIST, 0)
' //是否允许用户指定一个不存在的目录。默认值为真。
如果真 (是否为空 (不改变目录) ＝ 假)
不改变目录1 ＝ 选择 (不改变目录, #OFN_NOCHANGEDIR, 0)
' //在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。
如果真 (是否为空 (是否多选) ＝ 假)
是否多选1 ＝ 选择 (是否多选, #OFN_ALLOWMULTISELECT, 0)
' //是否需要使用文件多选。默认值为假。

子程序名	返回值类型	公开	备 注
打开	逻辑型		多选文件,返回文件路径以";"分隔。打开失败或取消返回空文本
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
类型	整数型				0. 打开文件；1. 保存文件
文件名	文本型
对话框标题	文本型				对话框窗口标题
对话框样式	整数型				0为大框，1为小框。

变量名	类 型	静态	数组	备 注
是否成功	逻辑型
temp	字节集
文件名数组	文本型		0
N	整数型
所选文件	文本型

打开文件.标题 ＝ 对话框标题
连续赋值 ({  }, 打开文件.文件名, 打开文件.文件标题, temp, 文件记录)
打开文件.窗口句柄 ＝ 窗口句柄
如果真 (不改变目录1 ＝ 0)
文件记录 ＝ {  }
判断 (文件名 ≠ “”)
temp ＝ 到字节集 (文件名)
temp ＝ 子字节集替换 (temp, { 59 }, { 0 }, , )

temp ＝ 文件记录
打开文件.文件名 ＝ temp ＋ 取空白字节集 (选择 (是否多选1 ≠ 0, 2048, 256) － 取字节集长度 (temp) ＋ 1)
打开文件.文件名最大长度 ＝ 取字节集长度 (打开文件.文件名)
打开文件.结构大小 ＝ 76
判断 (类型 ＝ 0)  ' 打开文件,
打开文件.标记 ＝ 位或 ( #OFN_HIDEREADONLY, #OFN_EXPLORER, #OFN_ENABLESIZING, 创建时提示1, 文件必须存在1, 文件覆盖提示1, 目录必须存在1, 不改变目录1, 是否多选1)
如果真 (对话框样式 ≠ 0)
打开文件.标记 ＝ 位或 (打开文件.标记, #OFN_ENABLEHOOK, #OFN_EXPLORER )
是否成功 ＝ 取打开文件名_ (打开文件)

判断 (类型 ＝ 1)  ' 保存文件
打开文件.标记 ＝ 位或 ( #OFN_EXPLORER, #OFN_ENABLESIZING, 文件覆盖提示1, 目录必须存在1, 不改变目录1, 是否多选1)
是否成功 ＝ 取保存文件名_ (打开文件)




如果真 (是否成功)
' 文件名 ＝ 删首尾空 (取字节集数据 (打开文件.文件名, #文本型, ))
文件记录 ＝ 打开文件.文件名
temp ＝ 打开文件.文件名
temp ＝ 取字节集左边 (temp, 寻找字节集 (temp, { 0, 0 }, ) － 1)
' 调试输出 (到文本 (打开文件.文件名))
判断 (寻找字节集 (temp, { 0 }, ) ≠ -1 且 是否多选1 ＝ #OFN_ALLOWMULTISELECT )
文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (temp, { 0 }, { 124 }, , )), “|”, )
如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”)
文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”
计次循环首 (取数组成员数 (文件名数组) － 1, N)
判断 (取数组成员数 (文件名数组) － 1 ≠ N)
所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1] ＋ “;”

所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1]
处理事件 ()
计次循环尾 ()
文件名 ＝ 所选文件
文件名 ＝ 取字节集数据 (temp, #文本型, )

连续赋值 ({  }, 打开文件.文件名, 打开文件.文件标题, temp, 文件记录)
所选文件 ＝ “”
清除数组 (文件名数组)
' 连续赋值 (0, 打开文件.文件名最大长度, 打开文件.文件标题最大长度)
返回 (是否成功)

.版本 2<br /> <br /> .程序集 通用对话框类<br /> .程序集变量 文件覆盖提示1, 整数型, , , 当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。<br /> .程序集变量 目录必须存在1, 整数型, , , 是否允许用户指定一个不存在的目录。默认值为真。<br /> .程序集变量 不改变目录1, 整数型, , , 在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。<br /> .程序集变量 是否多选1, 整数型, , , 是否需要使用多选。默认值为假。<br /> .程序集变量 文件记录, 字节集<br /> .程序集变量 打开文件, 打开文件名_<br /> .程序集变量 创建时提示1, 整数型, , , 当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为假。<br /> .程序集变量 文件必须存在1, 整数型, , , 当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 创建时提示1 ＝ #OFN_CREATEPROMPT<br /> <br /> 文件必须存在1 ＝ #OFN_FILEMUSTEXIST<br /> <br /> 文件覆盖提示1 ＝ #OFN_OVERWRITEPROMPT<br /> <br /> 目录必须存在1 ＝ #OFN_PATHMUSTEXIST<br /> <br /> 不改变目录1 ＝ 0<br /> 是否多选1 ＝ 0<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 文件对话框初始化, , 公开<br /> .参数 过滤器, 文本型, 可空, 成对使用，例如：“MP3文件（*.mp3）|*.mp3|mpg文件（*.mpg）|*.mpg”<br /> .参数 初始过滤器, 整数型, 可空, 指定初始的过滤器，0为第一个过滤器。默认值为0。<br /> .参数 初始目录, 文本型, 可空, 指定当打开对话框时所自动跳转到的目录。如不指定，则一般情况下默认路径为从“我的文档”开始。<br /> .参数 默认文件后缀, 文本型, 可空, 指定当用户没有输入文件的后缀名称（扩展名）时所自动使用的文件后缀名称<br /> .参数 创建时提示, 逻辑型, 可空, 当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为真。<br /> .参数 文件必须存在, 逻辑型, 可空, 当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。<br /> .参数 文件覆盖提示, 逻辑型, 可空, 当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。<br /> .参数 目录必须存在, 逻辑型, 可空, 是否允许用户指定一个不存在的目录。默认值为真。<br /> .参数 不改变目录, 逻辑型, 可空, 在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。<br /> .参数 是否多选, 逻辑型, 可空, 是否需要使用文件多选。默认值为假。<br /> <br /> 打开文件.实例句柄 ＝ 取实例句柄_ (取执行文件名 ())<br /> <br /> 打开文件.过滤器 ＝ 子字节集替换 (到字节集 (删全部空 (过滤器)), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }<br /> <br /> 打开文件.过滤器索引 ＝ 选择 (初始过滤器 ≤ 0, 1, 初始过滤器 ＋ 1)<br /> <br /> 打开文件.初始目录 ＝ 初始目录<br /> <br /> 打开文件.默认扩展名 ＝ 默认文件后缀<br /> <br /> .如果真 (是否为空 (创建时提示) ＝ 假)<br />     创建时提示1 ＝ 选择 (文件必须存在, #OFN_CREATEPROMPT, 0)<br />     ' //当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。默认值为假。<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (文件必须存在) ＝ 假)<br />     文件必须存在1 ＝ 选择 (文件必须存在, #OFN_FILEMUSTEXIST, 0)<br />     ' //当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。默认值为真。<br /> <br /> .如果真结束<br /> <br /> .如果真 (是否为空 (文件覆盖提示) ＝ 假)<br />     文件覆盖提示1 ＝ 选择 (文件覆盖提示, #OFN_OVERWRITEPROMPT, 0)<br />     ' //当类型为保存文件对话框时，如果用户指定了一个已经存在的文件，是否询问用户确定覆盖此文件。默认值为真。<br /> <br /> .如果真结束<br /> .如果真 (是否为空 (目录必须存在) ＝ 假)<br />     目录必须存在1 ＝ 选择 (目录必须存在, #OFN_PATHMUSTEXIST, 0)<br />     ' //是否允许用户指定一个不存在的目录。默认值为真。<br /> <br /> .如果真结束<br /> .如果真 (是否为空 (不改变目录) ＝ 假)<br />     不改变目录1 ＝ 选择 (不改变目录, #OFN_NOCHANGEDIR, 0)<br />     ' //在对话框关闭后是否自动返回到进入对话框时的文件目录。默认值为假。<br /> <br /> .如果真结束<br /> .如果真 (是否为空 (是否多选) ＝ 假)<br />     是否多选1 ＝ 选择 (是否多选, #OFN_ALLOWMULTISELECT, 0)<br />     ' //是否需要使用文件多选。默认值为假。<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 打开, 逻辑型, 公开, 多选文件,返回文件路径以";"分隔。打开失败或取消返回空文本<br /> .参数 窗口句柄, 整数型, 可空<br /> .参数 类型, 整数型, , 0. 打开文件；1. 保存文件<br /> .参数 文件名, 文本型, 参考<br /> .参数 对话框标题, 文本型, 可空, 对话框窗口标题<br /> .参数 对话框样式, 整数型, 可空, 0为大框，1为小框。<br /> .局部变量 是否成功, 逻辑型<br /> .局部变量 temp, 字节集<br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 N, 整数型<br /> .局部变量 所选文件, 文本型<br /> <br /> 打开文件.标题 ＝ 对话框标题<br /> 连续赋值 ({  }, 打开文件.文件名, 打开文件.文件标题, temp, 文件记录)<br /> 打开文件.窗口句柄 ＝ 窗口句柄<br /> <br /> .如果真 (不改变目录1 ＝ 0)<br /> <br />     文件记录 ＝ {  }<br /> .如果真结束<br /> .判断开始 (文件名 ≠ “”)<br />     temp ＝ 到字节集 (文件名)<br /> <br />     temp ＝ 子字节集替换 (temp, { 59 }, { 0 }, , )<br /> <br /> .默认<br />     temp ＝ 文件记录<br /> <br /> .判断结束<br /> 打开文件.文件名 ＝ temp ＋ 取空白字节集 (选择 (是否多选1 ≠ 0, 2048, 256) － 取字节集长度 (temp) ＋ 1)<br /> <br /> 打开文件.文件名最大长度 ＝ 取字节集长度 (打开文件.文件名)<br /> <br /> 打开文件.结构大小 ＝ 76<br /> <br /> .判断开始 (类型 ＝ 0)  ' 打开文件,<br />     打开文件.标记 ＝ 位或 (#OFN_HIDEREADONLY, #OFN_EXPLORER, #OFN_ENABLESIZING, 创建时提示1, 文件必须存在1, 文件覆盖提示1, 目录必须存在1, 不改变目录1, 是否多选1)<br /> <br />     .如果真 (对话框样式 ≠ 0)<br />         打开文件.标记 ＝ 位或 (打开文件.标记, #OFN_ENABLEHOOK, #OFN_EXPLORER)<br /> <br />     .如果真结束<br />     是否成功 ＝ 取打开文件名_ (打开文件)<br /> <br /> .判断 (类型 ＝ 1)  ' 保存文件<br />     打开文件.标记 ＝ 位或 (#OFN_EXPLORER, #OFN_ENABLESIZING, 文件覆盖提示1, 目录必须存在1, 不改变目录1, 是否多选1)<br /> <br />     是否成功 ＝ 取保存文件名_ (打开文件)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果真 (是否成功)<br />     ' 文件名 ＝ 删首尾空 (取字节集数据 (打开文件.文件名, #文本型, ))<br /> <br />     文件记录 ＝ 打开文件.文件名<br /> <br />     temp ＝ 打开文件.文件名<br /> <br />     temp ＝ 取字节集左边 (temp, 寻找字节集 (temp, { 0, 0 }, ) － 1)<br /> <br /> <br />     ' 调试输出 (到文本 (打开文件.文件名))<br />     .判断开始 (寻找字节集 (temp, { 0 }, ) ≠ -1 且 是否多选1 ＝ #OFN_ALLOWMULTISELECT)<br /> <br />         文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (temp, { 0 }, { 124 }, , )), “|”, )<br /> <br />         .如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”)<br /> <br />             文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”<br /> <br />         .如果真结束<br />         .计次循环首 (取数组成员数 (文件名数组) － 1, N)<br /> <br />             .判断开始 (取数组成员数 (文件名数组) － 1 ≠ N)<br /> <br />                 所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1] ＋ “;”<br /> <br />             .默认<br />                 所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1]<br /> <br />             .判断结束<br />             处理事件 ()<br /> <br />         .计次循环尾 ()<br />         文件名 ＝ 所选文件<br />     .默认<br />         文件名 ＝ 取字节集数据 (temp, #文本型, )<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> 连续赋值 ({  }, 打开文件.文件名, 打开文件.文件标题, temp, 文件记录)<br /> 所选文件 ＝ “”<br /> 清除数组 (文件名数组)<br /> ' 连续赋值 (0, 打开文件.文件名最大长度, 打开文件.文件标题最大长度)<br /> <br /> 返回 (是否成功)

部分源码，源码非原创，看到问答区有人求，论坛也没有，顺势发出来把，使用API调用系统对话框

当然，如果有好评，以后有好东西我也会发出来的哟，你们的支持就是我的动力
通用对话框含（多文件对话框）.zip (4.15 KB, 下载次数: 281)

2016-10-19 14:57 上传

点击文件名下载附件

YSH5858

谢谢分享！

amycarl

多谢分享

aoshiyu

多开文件夹 可以调吗   你这个是打开文件和 保存文件

aoshiyu

好像不能直接选择文件夹

tulio1688

源码非原创源码非原创

tulio1688

源码非原创

909677836

能写个判断对话框里选的是什么类型后缀吗?

909677836

感谢分享

luobin800

研究一下

kaizhiye

学习一下，谢谢