OpenWindowsDlg 通用对话框W

项目部004

通用对话框宽字符版，集成选择文件、选择文件夹、保存文件等基础操作，示例如下！

打开

  

变量名	类 型	静态	数组	备 注
FilterSpec	字节集
aryPath	字节集		0
dwAryLen	整数型
i	整数型

FilterSpec ＝ 编码_Ansi到Unicode (“所有支持的图片格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe;*.bmp;*.gif;*.png;*.raw;*.arw;*.nef;*.crw;*.mrw;*.raf;*.erf;*.3fr;*.dcr;*.dng;*.pef;*.cr2;*.sr2;*.mef;*.orf;*.psd;”, ) ＋ 编码_Ansi到Unicode (“JPG 格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe”, ) ＋ 编码_Ansi到Unicode (“BMP 格式”, ) ＋ 编码_Ansi到Unicode (“*.bmp”, ) ＋ 编码_Ansi到Unicode (“GIF 格式”, ) ＋ 编码_Ansi到Unicode (“*.gif”, ) ＋ 编码_Ansi到Unicode (“PNG 格式”, ) ＋ 编码_Ansi到Unicode (“*.png”, )
dwAryLen ＝ OpenWindowsDlg (真, , , FilterSpec, , 编码_Ansi到Unicode (“打开图片”, ), , aryPath)
计次循环首 (dwAryLen, i)
输出调试文本 (编码_Unicode到Ansi (aryPath [ i ]))
计次循环尾 ()

.版本 2<br /> .局部变量 FilterSpec, 字节集<br /> .局部变量 aryPath, 字节集, , "0"<br /> .局部变量 dwAryLen, 整数型<br /> .局部变量 i, 整数型<br /> FilterSpec ＝ 编码_Ansi到Unicode (“所有支持的图片格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe;*.bmp;*.gif;*.png;*.raw;*.arw;*.nef;*.crw;*.mrw;*.raf;*.erf;*.3fr;*.dcr;*.dng;*.pef;*.cr2;*.sr2;*.mef;*.orf;*.psd;”, ) ＋ 编码_Ansi到Unicode (“JPG 格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe”, ) ＋ 编码_Ansi到Unicode (“BMP 格式”, ) ＋ 编码_Ansi到Unicode (“*.bmp”, ) ＋ 编码_Ansi到Unicode (“GIF 格式”, ) ＋ 编码_Ansi到Unicode (“*.gif”, ) ＋ 编码_Ansi到Unicode (“PNG 格式”, ) ＋ 编码_Ansi到Unicode (“*.png”, )<br /> dwAryLen ＝ OpenWindowsDlg (真, , , FilterSpec, , 编码_Ansi到Unicode (“打开图片”, ), , aryPath)<br /> .计次循环首 (dwAryLen, i)<br />     输出调试文本 (编码_Unicode到Ansi (aryPath [ i ]))<br /> .计次循环尾 ()

保存

  

变量名	类 型	静态	数组	备 注
FilterSpec	字节集
aryPath	字节集		0
dwAryLen	整数型
i	整数型

FilterSpec ＝ 编码_Ansi到Unicode (“JPG 格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe”, ) ＋ 编码_Ansi到Unicode (“BMP 格式”, ) ＋ 编码_Ansi到Unicode (“*.bmp”, ) ＋ 编码_Ansi到Unicode (“PNG 格式”, ) ＋ 编码_Ansi到Unicode (“*.png”, )
dwAryLen ＝ OpenWindowsDlg (真, 真, , FilterSpec, , 编码_Ansi到Unicode (“图片另存为”, ), , aryPath)
计次循环首 (dwAryLen, i)
输出调试文本 (编码_Unicode到Ansi (aryPath [ i ]))
计次循环尾 ()

.版本 2<br /> .局部变量 FilterSpec, 字节集<br /> .局部变量 aryPath, 字节集, , "0"<br /> .局部变量 dwAryLen, 整数型<br /> .局部变量 i, 整数型<br /> FilterSpec ＝ 编码_Ansi到Unicode (“JPG 格式”, ) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe”, ) ＋ 编码_Ansi到Unicode (“BMP 格式”, ) ＋ 编码_Ansi到Unicode (“*.bmp”, ) ＋ 编码_Ansi到Unicode (“PNG 格式”, ) ＋ 编码_Ansi到Unicode (“*.png”, )<br /> dwAryLen ＝ OpenWindowsDlg (真, 真, , FilterSpec, , 编码_Ansi到Unicode (“图片另存为”, ), , aryPath)<br /> .计次循环首 (dwAryLen, i)<br />     输出调试文本 (编码_Unicode到Ansi (aryPath [ i ]))<br /> .计次循环尾 ()

项目部004

  

变量名	类 型	静态	数组	备 注
aryPath	字节集		0
dwFlags	整数型
dwItem	整数型

dwFlags ＝ 合并整数 (1, 0)
' /***
' * 低16位：显示编码选项
' * 高16位：默认编码选中项
' ***/
OpenWindowsDlg (, , , , , , , aryPath, , dwFlags, dwItem)
调试输出 (dwItem)

.版本 2<br /> <br /> .局部变量 aryPath, 字节集, , "0"<br /> .局部变量 dwFlags, 整数型<br /> .局部变量 dwItem, 整数型<br /> dwFlags ＝ 合并整数 (1, 0)<br /> ' /***<br /> ' * 低16位：显示编码选项<br /> ' * 高16位：默认编码选中项<br /> ' ***/<br /> OpenWindowsDlg (, , , , , , , aryPath, , dwFlags, dwItem)<br /> 调试输出 (dwItem)

增加编码选项！由精易模块v10.3.5版本以上提供，默认就直接传1就行！

易神

好的好的，参考一下

cpzjj

顶一个，学习学习

蓝雅婷

你这是用的模块吗？一个简单的功能还要挂个这么大的模块，能不能提供一下直接dll的调用方式？

浪使者

请问要怎样设置初始目录？

项目部004

  

变量名	类 型	静态	数组	备 注
szPath	字节集		0
szFolder	字节集
len	整数型
i	整数型

szFolder ＝ 编码_Ansi到Unicode (“D:\e\lib”, )  ' 初始目录
len ＝ OpenWindowsDlg (真, , 真, , , , , szPath, szFolder)
计次循环首 (len, i)
输出调试文本 (编码_Unicode到Ansi (szPath [ i ]))
计次循环尾 ()

.版本 2<br /> .局部变量 szPath, 字节集, , "0"<br /> .局部变量 szFolder, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> szFolder ＝ 编码_Ansi到Unicode (“D:\e\lib”, )  ' 初始目录<br /> len ＝ OpenWindowsDlg (真, , 真, , , , , szPath, szFolder)<br /> .计次循环首 (len, i)<br />     输出调试文本 (编码_Unicode到Ansi (szPath [ i ]))<br /> .计次循环尾 ()

新增可传递指定初始目录，由精易模块v9.5.5以上版本提供！

NYG

openwindowsdlg 编译后与异常捕获冲突 调试环境无问题

野原广志

一定要用英文吗，我是文盲，模块里直接搜对话框还搜不到

果心豆腐酱

* 该功能不支持当前操作系统版本
* 该功能不支持当前操作系统版本
* 该功能不支持当前操作系统版本
* 该功能不支持当前操作系统版本