对话框 扩展 支持库

15039346689

          前几天看到有人找这个，我发出来分享下


    易语言自带的对话框有点小了









加上这个支持库后：     这样子是不是大又简单了呢



包里有安装方法




支持库.rar (40.31 KB, 下载次数: 136)

2016-8-27 16:53 上传

点击文件名下载附件
下载积分: 精币 -2 枚

闯荡

谢谢分享啊

zzh233

真不错还可以这样

15039346689

今天下午人咋恁少吖

萌萌嗒的小白

哎网络延迟卡了。

萌萌嗒的小白

不要在意此楼
网络延迟卡了。

萌萌嗒的小白

有API

  

子程序名	返回值类型	公开	备 注
通用对话框_打开	文本型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
类型	整数型				0 打开文件 1保存文件 2打开文件精简 3保存文件精简
标题	文本型
filter	文本型
初始目录	文本型
index	整数型

变量名	类 型	静态	数组	备 注
of	openfilename
ret	整数型

of.hwndOwner ＝ 句柄
of.lStructSize ＝ 76
判断 (是否为空 (filter))
of.lpstrFilter ＝ 到字节集 (“所有文件(*.*)”) ＋ { 0 } ＋ 到字节集 (“*.*”) ＋ { 0, 0 }
of.lpstrFilter ＝ 子字节集替换 (到字节集 (filter), { 124 }, { 0 }, , ) ＋ { 0, 0 }

of.lpstrFile ＝ 取空白字节集 (255)
of.nMaxFile ＝ 255
如果真 (是否为空 (初始目录) ＝ 假)
of.lpstrInitialDir ＝ 初始目录
如果真 (是否为空 (标题) ＝ 假)
of.lpstrTitle ＝ 标题
of.flags ＝ 524288
判断 (类型 ＝ 0)
ret ＝ GetOpenFileName (of)
判断 (类型 ＝ 1)
of.lpstrFileTitle ＝ “Save a file”
ret ＝ GetSaveFileName (of)
判断 (类型 ＝ 2)
ret ＝ GetOpenFileNamePreview (of)
判断 (类型 ＝ 3)
of.lpstrFileTitle ＝ “Save a file”
ret ＝ GetSaveFileNamePreview (of)


如果真 (ret ≠ 0)
如果真 (是否为空 (index) ＝ 假)
index ＝ of.nFilterIndex
返回 (到文本 (of.lpstrFile))
返回 (“”)

DLL命令名	返回值类型	公开	备 注
GetOpenFileName	整数型		建立文件名对话框
DLL库文件名:
comdlg32.dll
在DLL库中对应命令名:
GetOpenFileNameA
参数名	类 型	传址	数组	备 注
pOpenfilename	openfilename

DLL命令名	返回值类型	公开	备 注
GetSaveFileName	整数型		建立文件名保存对话框
DLL库文件名:
comdlg32.dll
在DLL库中对应命令名:
GetSaveFileNameA
参数名	类 型	传址	数组	备 注
pOpenfilename	openfilename

DLL命令名	返回值类型	公开	备 注
GetOpenFileNamePreview	整数型
DLL库文件名:
msvfw32.dll
在DLL库中对应命令名:
GetOpenFileNamePreview
参数名	类 型	传址	数组	备 注
lpofn	openfilename

DLL命令名	返回值类型	公开	备 注
GetSaveFileNamePreview	整数型
DLL库文件名:
msvfw32.dll
在DLL库中对应命令名:
GetSaveFileNamePreviewW
参数名	类 型	传址	数组	备 注
lpofn	openfilename

数据类型名	公开	备 注
openfilename
成员名	类 型	传址	数组	备 注
lStructSize	整数型
hwndOwner	整数型
hInstance	整数型
lpstrFilter	字节集
lpstrCustomFilter	字节集
nMaxCustFilter	整数型
nFilterIndex	整数型
lpstrFile	字节集
nMaxFile	整数型
lpstrFileTitle	文本型
nMaxFileTitle	整数型
lpstrInitialDir	文本型
lpstrTitle	文本型
flags	整数型
nFileOffset	整数型
nFileExtension	整数型
lpstrDefExt	文本型
lCustData	字节集
lpfnHook	整数型
lpTemplateName	文本型

.版本 2<br /> <br /> .子程序 通用对话框_打开, 文本型, 公开<br /> .参数 句柄, 整数型<br /> .参数 类型, 整数型, 可空, 0 打开文件 1保存文件 2打开文件精简 3保存文件精简<br /> .参数 标题, 文本型, 可空<br /> .参数 filter, 文本型, 可空<br /> .参数 初始目录, 文本型, 可空<br /> .参数 index, 整数型, 参考 可空<br /> .局部变量 of, openfilename<br /> .局部变量 ret, 整数型<br /> <br /> of.hwndOwner ＝ 句柄<br /> of.lStructSize ＝ 76<br /> .判断开始 (是否为空 (filter))<br />     of.lpstrFilter ＝ 到字节集 (“所有文件(*.*)”) ＋ { 0 } ＋ 到字节集 (“*.*”) ＋ { 0, 0 }<br /> .默认<br />     of.lpstrFilter ＝ 子字节集替换 (到字节集 (filter), { 124 }, { 0 }, , ) ＋ { 0, 0 }<br /> .判断结束<br /> <br /> of.lpstrFile ＝ 取空白字节集 (255)<br /> of.nMaxFile ＝ 255<br /> .如果真 (是否为空 (初始目录) ＝ 假)<br />     of.lpstrInitialDir ＝ 初始目录<br /> .如果真结束<br /> .如果真 (是否为空 (标题) ＝ 假)<br />     of.lpstrTitle ＝ 标题<br /> .如果真结束<br /> of.flags ＝ 524288<br /> .判断开始 (类型 ＝ 0)<br />     ret ＝ GetOpenFileName (of)<br /> .判断 (类型 ＝ 1)<br />     of.lpstrFileTitle ＝ “Save a file”<br />     ret ＝ GetSaveFileName (of)<br /> .判断 (类型 ＝ 2)<br />     ret ＝ GetOpenFileNamePreview (of)<br /> .判断 (类型 ＝ 3)<br />     of.lpstrFileTitle ＝ “Save a file”<br />     ret ＝ GetSaveFileNamePreview (of)<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (ret ≠ 0)<br />     .如果真 (是否为空 (index) ＝ 假)<br />         index ＝ of.nFilterIndex<br />     .如果真结束<br />     返回 (到文本 (of.lpstrFile))<br /> .如果真结束<br /> 返回 (“”)<br /> .版本 2<br /> <br /> .DLL命令 GetOpenFileName, 整数型, "comdlg32.dll", "GetOpenFileNameA", 公开, 建立文件名对话框<br />     .参数 pOpenfilename, openfilename<br /> <br /> .DLL命令 GetSaveFileName, 整数型, "comdlg32.dll", "GetSaveFileNameA", 公开, 建立文件名保存对话框<br />     .参数 pOpenfilename, openfilename<br /> <br /> .DLL命令 GetOpenFileNamePreview, 整数型, "msvfw32.dll", "GetOpenFileNamePreview", 公开<br />     .参数 lpofn, openfilename<br /> <br /> .DLL命令 GetSaveFileNamePreview, 整数型, "msvfw32.dll", "GetSaveFileNamePreviewW", 公开<br />     .参数 lpofn, openfilename<br /> .版本 2<br /> <br /> .数据类型 openfilename<br />     .成员 lStructSize, 整数型<br />     .成员 hwndOwner, 整数型<br />     .成员 hInstance, 整数型<br />     .成员 lpstrFilter, 字节集<br />     .成员 lpstrCustomFilter, 字节集<br />     .成员 nMaxCustFilter, 整数型<br />     .成员 nFilterIndex, 整数型<br />     .成员 lpstrFile, 字节集<br />     .成员 nMaxFile, 整数型<br />     .成员 lpstrFileTitle, 文本型<br />     .成员 nMaxFileTitle, 整数型<br />     .成员 lpstrInitialDir, 文本型<br />     .成员 lpstrTitle, 文本型<br />     .成员 flags, 整数型<br />     .成员 nFileOffset, 整数型<br />     .成员 nFileExtension, 整数型<br />     .成员 lpstrDefExt, 文本型<br />     .成员 lCustData, 字节集<br />     .成员 lpfnHook, 整数型<br />     .成员 lpTemplateName, 文本型

七岁小毛猴

跟精益模块一样的吧。

SalHe

llou楼上的同学是不是理解错了   还是我理解错了

qq小宇

llou楼上的同学是不是理解错了   还是我理解错了