通用对话框问题

东冬

  

子程序名	返回值类型	公开	备 注
打开文件	字节集		与支持库通用对话框功能一样，成功返回一个通用对话框文件名，失败返回空。
参数名	类 型	参考	可空	数组	备 注
易样式	逻辑型				作废留着兼容之前的a版
标题	字节集				仅适用于打开文件和保存文件对话框。
文件名	字节集				从本属性中读取的文件名包括驱动器符和全路径目录，同时本属性也用作初始对话框中的文件名编辑框。
过滤器	字节集				文本型。过滤器文本由单个或多个成对的文本串组成，每对文本串的第一个描述显示形式，如：“文本文件（*.txt）”；第二个指定实际的过滤匹配符，如：“*.txt”，所有各文本串之间用“|”号隔开。
初始目录	字节集				指定当打开对话框时所自动跳转到的目录。
默认文件后缀	字节集				指定当用户没有输入文件的后缀名称时所自动使用的文件后缀名称。
创建时提示	逻辑型				当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。
文件必须存在	逻辑型				当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。
目录必须存在	逻辑型				是否允许用户指定一个不存在的目录。
不改变目录	逻辑型				在对话框关闭后是否自动返回到进入对话框时的文件目录。

变量名	类 型	静态	数组	备 注
ofn	OPENFILENAME_w
bool	逻辑型
mark	整数型
局部过滤器	字节集
局部文件名	字节集
局部标题	字节集
指针	整数型
局部文件标题	字节集

ofn.结构大小 ＝ 76
ofn.窗口句柄 ＝ GetActiveWindow ()
局部文件标题 ＝ 编码_Ansi到Unicode (“Open a file”) ＋ { 0, 0 }
ofn.文件标题_指针 ＝ 取变量数据地址 (局部文件标题)
局部过滤器 ＝ 子字节集替换 (到字节集 (过滤器), { 124, 0 }, { 0, 0 }, , ) ＋ { 0, 0 }
ofn.过滤器_指针 ＝ 取变量数据地址 (局部过滤器)
局部文件名 ＝ 取空白字节集 (256 × 2 － 2)
lstrcpy_bin_w (局部文件名, 文件名 ＋ { 0, 0 })
ofn.文件名_指针 ＝ 取变量数据地址 (局部文件名)
ofn.文件名最大长度 ＝ 256 × 2
ofn.初始目录_指针 ＝ 取变量数据地址 (初始目录)
ofn.默认扩展名_指针 ＝ 取变量数据地址 (默认文件后缀)
' 局部标题 ＝ 取重复字节集 (取字节集长度 (标题), { 32, 0 })
' 局部标题 ＝ 字节集_取左边_汇编 (标题, { 0, 0 }, -1, ) ＋ 局部标题 ＋ { 0, 0 }
' ofn.标题_指针 ＝ 取变量数据地址 (局部标题)
ofn.标题_指针 ＝ 取变量数据地址 (标题)
ofn.文件标题最大长度 ＝ 256 × 2
mark ＝ 524288  ' OFN_EXPLORER
如果真 (创建时提示)
mark ＝ 位或 (mark, 8192)  ' OFN_CREATEPROMPT
如果真 (文件必须存在)
mark ＝ 位或 (mark, 4096)  ' OFN_FILEMUSTEXIST
如果真 (目录必须存在)
mark ＝ 位或 (mark, 2048)  ' OFN_PATHMUSTEXIST
如果真 (不改变目录)
mark ＝ 位或 (mark, 8)  ' OFN_NOCHANGEDIR
' mark ＝ 位或 (mark, 16)
ofn.标志 ＝ mark
指针 ＝ 结构体_取指针 (ofn)
bool ＝ GetOpenFileNameW (指针)
返回 (选择 (bool, 局部文件名, {  }))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 打开文件, 字节集, 公开, 与支持库通用对话框功能一样，成功返回一个通用对话框文件名，失败返回空。<br /> .参数 易样式, 逻辑型, 可空, 作废留着兼容之前的a版<br /> .参数 标题, 字节集, 可空, 仅适用于打开文件和保存文件对话框。<br /> .参数 文件名, 字节集, 可空, 从本属性中读取的文件名包括驱动器符和全路径目录，同时本属性也用作初始对话框中的文件名编辑框。<br /> .参数 过滤器, 字节集, 可空, 文本型。过滤器文本由单个或多个成对的文本串组成，每对文本串的第一个描述显示形式，如：“文本文件（*.txt）”；第二个指定实际的过滤匹配符，如：“*.txt”，所有各文本串之间用“|”号隔开。<br /> .参数 初始目录, 字节集, 可空, 指定当打开对话框时所自动跳转到的目录。<br /> .参数 默认文件后缀, 字节集, 可空, 指定当用户没有输入文件的后缀名称时所自动使用的文件后缀名称。<br /> .参数 创建时提示, 逻辑型, 可空, 当类型为打开文件对话框时，如果用户指定了一个不存在的文件名称，是否提示用户即将创建它。<br /> .参数 文件必须存在, 逻辑型, 可空, 当类型为打开文件对话框时，是否允许用户指定一个不存在的文件。<br /> .参数 目录必须存在, 逻辑型, 可空, 是否允许用户指定一个不存在的目录。<br /> .参数 不改变目录, 逻辑型, 可空, 在对话框关闭后是否自动返回到进入对话框时的文件目录。<br /> .局部变量 ofn, OPENFILENAME_w<br /> .局部变量 bool, 逻辑型<br /> .局部变量 mark, 整数型<br /> .局部变量 局部过滤器, 字节集<br /> .局部变量 局部文件名, 字节集<br /> .局部变量 局部标题, 字节集<br /> .局部变量 指针, 整数型<br /> .局部变量 局部文件标题, 字节集<br /> <br /> ofn.结构大小 ＝ 76<br /> ofn.窗口句柄 ＝ GetActiveWindow ()<br /> <br /> 局部文件标题 ＝ 编码_Ansi到Unicode (“Open a file”) ＋ { 0, 0 }<br /> ofn.文件标题_指针 ＝ 取变量数据地址 (局部文件标题)<br /> <br /> 局部过滤器 ＝ 子字节集替换 (到字节集 (过滤器), { 124, 0 }, { 0, 0 }, , ) ＋ { 0, 0 }<br /> ofn.过滤器_指针 ＝ 取变量数据地址 (局部过滤器)<br /> <br /> <br /> <br /> 局部文件名 ＝ 取空白字节集 (256 × 2 － 2)<br /> lstrcpy_bin_w (局部文件名, 文件名 ＋ { 0, 0 })<br /> ofn.文件名_指针 ＝ 取变量数据地址 (局部文件名)<br /> ofn.文件名最大长度 ＝ 256 × 2<br /> <br /> ofn.初始目录_指针 ＝ 取变量数据地址 (初始目录)<br /> ofn.默认扩展名_指针 ＝ 取变量数据地址 (默认文件后缀)<br /> <br /> ' 局部标题 ＝ 取重复字节集 (取字节集长度 (标题), { 32, 0 })<br /> ' 局部标题 ＝ 字节集_取左边_汇编 (标题, { 0, 0 }, -1, ) ＋ 局部标题 ＋ { 0, 0 }<br /> ' ofn.标题_指针 ＝ 取变量数据地址 (局部标题)<br /> <br /> ofn.标题_指针 ＝ 取变量数据地址 (标题)<br /> <br /> <br /> ofn.文件标题最大长度 ＝ 256 × 2<br /> <br /> <br /> <br /> mark ＝ 524288  ' OFN_EXPLORER<br /> .如果真 (创建时提示)<br />     mark ＝ 位或 (mark, 8192)  ' OFN_CREATEPROMPT<br /> .如果真结束<br /> .如果真 (文件必须存在)<br />     mark ＝ 位或 (mark, 4096)  ' OFN_FILEMUSTEXIST<br /> .如果真结束<br /> .如果真 (目录必须存在)<br />     mark ＝ 位或 (mark, 2048)  ' OFN_PATHMUSTEXIST<br /> .如果真结束<br /> .如果真 (不改变目录)<br />     mark ＝ 位或 (mark, 8)  ' OFN_NOCHANGEDIR<br /> .如果真结束<br /> ' mark ＝ 位或 (mark, 16)<br /> ofn.标志 ＝ mark<br /> <br /> 指针 ＝ 结构体_取指针 (ofn)<br /> <br /> bool ＝ GetOpenFileNameW (指针)<br /> 返回 (选择 (bool, 局部文件名, {  }))

通用对话框改成w版本让其支持unicode用户系统电脑，但是出现一个很奇怪的问题，就是这个标题（对话框左上角自己设置的对话框标题），再ansi系统编码上面是正常全部显示，但是在unicode系统上面，会被截断显示一部分。经过测试：如果标题的指针+2之类的会从标题中间截取显示，显示长度根据总长度自动截断，由此证明了我传递过去的标题是完整的，现在怀疑点是结构体数据没有对齐，但是又玩不明白，有么有大佬根据精易模块的通用对话框改成w版本的让其支持，项目部封装的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

FilterSpec ＝ 编码_Ansi到Unicode (“所有支持的图片格式”, 假) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe;*.bmp;*.gif;*.png;”, 假) ＋ 编码_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, , , )
如果真 (取数组成员数 (aryPath) ≤ 0)
返回 ()
编辑框1.内容 ＝ 编码_Unicode到Ansi (aryPath [1])

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 FilterSpec, 字节集<br /> .局部变量 dwAryLen, 整数型<br /> .局部变量 aryPath, 字节集, , "0"<br /> <br /> FilterSpec ＝ 编码_Ansi到Unicode (“所有支持的图片格式”, 假) ＋ 编码_Ansi到Unicode (“*.jpg;*.jpeg;*.jpe;*.bmp;*.gif;*.png;”, 假) ＋ 编码_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 /> .如果真 (取数组成员数 (aryPath) ≤ 0)<br />     返回 ()<br /> .如果真结束<br /> 编辑框1.内容 ＝ 编码_Unicode到Ansi (aryPath [1])

这个同样会出现在unicode系统上面标题会被截断。搞不定了，希望热心网友花个时间写个正确的版本。再次感谢

东冬

完啦，贴子又沉了

cunanhai

换一个,不要钻死胡同

右手胜过左手

没环境没法测。你自己调试下看大致问题在哪。比如试下纯ASCII，不用中文看看正常否。

东冬

右手胜过左手 发表于 2026-4-14 17:44
没环境没法测。你自己调试下看大致问题在哪。比如试下纯ASCII，不用中文看看正常否。 ...

不用中文纯正常，不会被截断

东冬

完啦，两个求助贴全部沉沦了

右手胜过左手

东冬 发表于 2026-4-14 18:30
不用中文纯正常，不会被截断

dwAryLen ＝ OpenWindowsDlg (假, , , FilterSpec, , 编码_Ansi到Unicode (“打开图片”, 假), , aryPath, , , )

这是你提供的。我这正常显示。你输出字节集看看是什么样的、

许七分

可以试试用核心支持库命令：

  

文本到UTF16 (“打开图片”)

文本到UTF16 (“打开图片”)

东冬

右手胜过左手 发表于 2026-4-15 06:34
dwAryLen ＝ OpenWindowsDlg (假, , , FilterSpec, , 编码_Ansi到Unicode (“打开图片”, 假), , aryPath ...

需要在unicode编码系统上面测试，可以勾选一下系统设置（语言或者区域）里面的unicode测试

东冬

许七分 发表于 2026-4-15 10:41
可以试试用核心支持库命令：文本到UTF16 (“打开图片”)

不行，测试了乱码