EX_UI模块，如何使用通用对话框和拖放。

艾鱼

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
C_Key	Ex_DirectUI
窗口_1	整数型
列表框EX_	列表框_Ex
按钮_载入文件	按钮_Ex
按钮_清空列表	按钮_Ex
进度条EX	进度条_Ex

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

窗口_1 ＝ 窗口_创建 (, “***批量验证”, 50, 50, 520, 590, , , , , 真)
C_Key.挂接窗口 (, 窗口_1, , , 读入文件 (“F:\1214重做系统\搜集图片\bbfb16563f7632cb951725359fe31da8.jpg”), , , 200, 0, , , , 10, )
列表框EX_.创建 (窗口_1, 3, 30, 416, 504, #列表类型_列表, , , , , , , , , , , , , )
列表框EX_.插入列 (1, “序”, 23, , )
列表框EX_.插入列 (2, “姓名”, 50, , )
列表框EX_.插入列 (3, “性别”, 40, , )
列表框EX_.插入列 (4, “***号码”, 130, , )
列表框EX_.插入列 (5, “家庭地址”, 160, , )
按钮_载入文件.创建 (窗口_1, 424, 30, 88, 32, “载入文件”)
按钮_清空列表.创建 (窗口_1, 424, 80, 88, 32, “清空列表”)
进度条EX.创建 (窗口_1, -1, 537, 513, 24, 0, 0, 100, , #进度状态_暂停, , , , , 5, )
' C_Key.事件_首次激活 (&_创建完毕, )
按钮_载入文件.事件_被单击 (&_创建完毕)
' 按钮_载入文件.事件_鼠标左键被按下 (&_按钮_载入文件_鼠标左键单击)
C_Key.置进入特效 ( #特效_进入_渐显 )
C_Key.置退出特效 ( #特效_退出_渐隐 )
窗口_消息循环 (窗口_1)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_创建完毕

变量名	类 型	静态	数组	备 注
真假	逻辑型

真假 ＝ 拖放.注册拖放控件 (窗口_1)
调试输出 (真假)
如果真 (真假 ＝ 假)
信息框_Ex (窗口_1, “启动失败！即将重启！”, #确认钮, “提示”, , , , #特效_进入_扩展, #特效_退出_收缩, , , , )
返回 ()
信息框_Ex (窗口_1, “第一个MessageBox.”, #确认钮, “提示”, 0, , , #特效_进入_扩展, #特效_退出_收缩, 真, , , )

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

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 C_Key, Ex_DirectUI<br /> .程序集变量 窗口_1, 整数型<br /> .程序集变量 列表框EX_, 列表框_Ex<br /> .程序集变量 按钮_载入文件, 按钮_Ex<br /> .程序集变量 按钮_清空列表, 按钮_Ex<br /> .程序集变量 进度条EX, 进度条_Ex<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 窗口_1 ＝ 窗口_创建 (, “***批量验证”, 50, 50, 520, 590, , , , , 真)<br /> C_Key.挂接窗口 (, 窗口_1, , , 读入文件 (“F:\1214重做系统\搜集图片\bbfb16563f7632cb951725359fe31da8.jpg”), , , 200, 0, , , , 10, )<br /> 列表框EX_.创建 (窗口_1, 3, 30, 416, 504, #列表类型_列表, , , , , , , , , , , , , )<br /> 列表框EX_.插入列 (1, “序”, 23, , )<br /> 列表框EX_.插入列 (2, “姓名”, 50, , )<br /> 列表框EX_.插入列 (3, “性别”, 40, , )<br /> 列表框EX_.插入列 (4, “***号码”, 130, , )<br /> 列表框EX_.插入列 (5, “家庭地址”, 160, , )<br /> 按钮_载入文件.创建 (窗口_1, 424, 30, 88, 32, “载入文件”)<br /> 按钮_清空列表.创建 (窗口_1, 424, 80, 88, 32, “清空列表”)<br /> 进度条EX.创建 (窗口_1, -1, 537, 513, 24, 0, 0, 100, , #进度状态_暂停, , , , , 5, )<br /> ' C_Key.事件_首次激活 (&_创建完毕, )<br /> 按钮_载入文件.事件_被单击 (&_创建完毕)<br /> <br /> ' 按钮_载入文件.事件_鼠标左键被按下 (&_按钮_载入文件_鼠标左键单击)<br /> C_Key.置进入特效 (#特效_进入_渐显)<br /> <br /> <br /> C_Key.置退出特效 (#特效_退出_渐隐)<br /> 窗口_消息循环 (窗口_1)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> <br /> .版本 2<br /> .支持库 edroptarget<br /> .支持库 spec<br /> <br /> .子程序 _创建完毕<br /> .局部变量 真假, 逻辑型<br /> <br /> 真假 ＝ 拖放.注册拖放控件 (窗口_1)<br /> 调试输出 (真假)<br /> .如果真 (真假 ＝ 假)<br />     信息框_Ex (窗口_1, “启动失败！即将重启！”, #确认钮, “提示”, , , , #特效_进入_扩展, #特效_退出_收缩, , , , )<br />     返回 ()<br /> .如果真结束<br /> 信息框_Ex (窗口_1, “第一个MessageBox.”, #确认钮, “提示”, 0, , , #特效_进入_扩展, #特效_退出_收缩, 真, , , )

福仔

GetOpenFileNameA() 打开文件api 参考精易模块的 类_通用对话框

拖放论坛大神有发过不带库的 http://bbs.125.la/forum.php?mod=viewthread&tid=13932866

艾鱼

我戳，UI大神呢。出来帮帮忙呀。API创建拖放和通用对话框，也好呀。

艾鱼

来个API实现也好呀。

艾鱼

福仔 发表于 2017-2-9 15:37
GetOpenFileNameA() 打开文件api 参考精易模块的 类_通用对话框

拖放论坛大神有发过不带库的 http://bbs ...

多谢。通用对话框呢。