精易论坛

标题: 对话框 扩展 支持库 [打印本页]

作者: 15039346689    时间: 2016-8-27 16:56
标题: 对话框 扩展 支持库
          前几天看到有人找这个,我发出来分享下


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









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



包里有安装方法











作者: 闯荡    时间: 2016-8-27 17:12
谢谢分享啊

作者: zzh233    时间: 2016-8-27 18:09
真不错还可以这样

作者: 15039346689    时间: 2016-8-27 18:10
今天下午人咋恁少吖
作者: 萌萌嗒的小白    时间: 2016-8-27 18:14
本帖最后由 黑鹰易语言 于 2016-8-27 18:17 编辑

哎网络延迟卡了。



作者: 萌萌嗒的小白    时间: 2016-8-27 18:15
本帖最后由 黑鹰易语言 于 2016-8-27 18:17 编辑

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

作者: 萌萌嗒的小白    时间: 2016-8-27 18:15
本帖最后由 黑鹰易语言 于 2016-8-27 18:16 编辑

有API
  
子程序名返回值类型公开备 注
通用对话框_打开文本型 
参数名类 型参考可空数组备 注
句柄整数型
类型整数型0 打开文件 1保存文件 2打开文件精简 3保存文件精简
标题文本型
filter文本型
初始目录文本型
index整数型
变量名类 型静态数组备 注
ofopenfilename 
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
参数名类 型传址数组备 注
pOpenfilenameopenfilename
DLL命令名返回值类型公开备 注
GetSaveFileName整数型 建立文件名保存对话框
DLL库文件名:
comdlg32.dll
在DLL库中对应命令名:
GetSaveFileNameA
参数名类 型传址数组备 注
pOpenfilenameopenfilename
DLL命令名返回值类型公开备 注
GetOpenFileNamePreview整数型 
DLL库文件名:
msvfw32.dll
在DLL库中对应命令名:
GetOpenFileNamePreview
参数名类 型传址数组备 注
lpofnopenfilename
DLL命令名返回值类型公开备 注
GetSaveFileNamePreview整数型 
DLL库文件名:
msvfw32.dll
在DLL库中对应命令名:
GetSaveFileNamePreviewW
参数名类 型传址数组备 注
lpofnopenfilename
数据类型名公开备 注
openfilename 
成员名类 型传址数组备 注
lStructSize整数型  
hwndOwner整数型  
hInstance整数型  
lpstrFilter字节集  
lpstrCustomFilter字节集  
nMaxCustFilter整数型  
nFilterIndex整数型  
lpstrFile字节集  
nMaxFile整数型  
lpstrFileTitle文本型  
nMaxFileTitle整数型  
lpstrInitialDir文本型  
lpstrTitle文本型  
flags整数型  
nFileOffset整数型  
nFileExtension整数型  
lpstrDefExt文本型  
lCustData字节集  
lpfnHook整数型  
lpTemplateName文本型  



作者: 七岁小毛猴    时间: 2016-8-27 18:43
跟精益模块一样的吧。
作者: SalHe    时间: 2016-8-27 18:57
llou楼上的同学是不是理解错了   还是我理解错了
作者: qq小宇    时间: 2016-8-28 08:33
llou楼上的同学是不是理解错了   还是我理解错了


作者: 1269082206    时间: 2016-8-28 14:06
看上去不错
作者: 汉族    时间: 2016-8-28 14:12
看看啥      
作者: 天机玄狐    时间: 2016-8-28 16:16
好东西啊,谢谢楼主分享!
作者: Ruthless丶浅笑    时间: 2016-8-28 22:24
貌似我的没加支持库也有这么大。


作者: yu1chaofan    时间: 2016-8-29 07:27

看上去不错
作者: yu1chaofan    时间: 2016-8-29 07:27
看上去不错
作者: 无限软件    时间: 2016-8-29 08:09
看样子又是给易语言加api调用的支持库。。。我还看有人写的支持库让输入法在易语言输入的时候会紧跟光标,可惜这玩意装多了肯定崩溃。
作者: 萌兔兔    时间: 2016-8-30 20:40
这个挺好的啊

作者: 玖龄后梦劭    时间: 2016-11-2 20:09
这个挺好的啊
作者: 玖龄后梦劭    时间: 2016-11-2 20:11
win10 64 崩溃
作者: bbmmwos123    时间: 2017-1-17 16:26
这个挺好的啊,收下了。谢了
作者: zz405125528    时间: 2017-1-17 20:32
支持一下 顺便签个到谢谢
作者: bbmmwos123    时间: 2017-1-27 14:34
支持一下 顺便签个到谢谢
作者: bbmmwos123    时间: 2017-1-27 14:34
支持一下 顺便签个到谢谢
作者: 倾尘Blog    时间: 2017-2-17 19:33
不错 收藏了
作者: 1474870688    时间: 2017-5-20 20:29
11111111111111111111111
作者: 1185384801    时间: 2017-5-21 09:45

这个挺好的啊
作者: 婼茹初見    时间: 2017-8-29 19:14
这样子是不是大又简单了呢
作者: zlw310282    时间: 2017-9-14 11:51
我的 win10    e 5.6版本无法使用
作者: a365326    时间: 2017-9-14 15:21
这个挺好的啊,收下了
作者: zlw310282    时间: 2017-9-15 17:32
zlw310282 发表于 2017-9-14 11:51
我的 win10    e 5.6版本无法使用

我的是 添加进去后,打钩,然后使用 通用对话框打开,还是原来的那样。接着关闭重新打开,勾又不打√选择了。可能是和哪有冲突吧
作者: 3081067901    时间: 2017-10-21 16:14
我的是 添加进去后,打钩,然后使用 通用对话框打开,还是原来的那样。接着关闭重新打开,勾又不打√选择了。可能是和哪有冲突吧
作者: 3081067901    时间: 2017-10-21 16:15
我的是 添加进去后,打钩,然后使用 通用对话框打开,还是原来的那样。接着关闭重新打开,勾又不打√选择了。可能是和哪有冲突吧
作者: liucd314    时间: 2017-11-23 15:30
谢谢分享谢谢分享
作者: liucd314    时间: 2017-11-23 15:30
谢谢分享谢谢分享
作者: 逐渐淡漠    时间: 2018-7-1 12:52
对话框 扩展 支持库
作者: hxdqdqp    时间: 2023-4-18 09:05
谢谢大佬分享。




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4