编辑框+组合框弹出

十点半之后

我想在编辑框输入文本，回车后弹出组合框下拉，
我的做法是：键码是13的话，组合框.发送信息 (335, 1, 0)
但是我想用一个整体的控件，请问是否有这样的控件模块或者库啥的，求助

Marvin

十点半之后 发表于 2026-6-30 14:22
可否给个简单的demo

易语言没有直接内置的“输入回车弹出下拉”的单一控件，但组合框本身就是“编辑框+下拉列表”的整体控件。只需通过子类化拦截其内部编辑框的回车键，就能实现你要的效果。

只需放一个组合框1，类型设置为“可编辑下拉式”，不用任何模块，试下看看

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
原编辑框过程	整数型

DLL命令名	返回值类型	公开	备 注
取窗口信息_	整数型		公开
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetWindowLongA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
索引	整数型

DLL命令名	返回值类型	公开	备 注
置窗口信息_	整数型		公开
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SetWindowLongA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
索引	整数型
新值	整数型

DLL命令名	返回值类型	公开	备 注
调用窗口过程_	整数型		公开
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CallWindowProcA
参数名	类 型	传址	数组	备 注
前过程	整数型
窗口句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

DLL命令名	返回值类型	公开	备 注
取子窗口_	整数型		公开
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetWindow
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
关系	整数型

DLL命令名	返回值类型	公开	备 注
发送消息_	整数型		公开
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
组合框句柄	整数型
编辑框句柄	整数型

组合框1.加入项目 (“项目A”, )
组合框1.加入项目 (“项目B”, )
组合框1.加入项目 (“项目C”, )
组合框句柄 ＝ 组合框1.取窗口句柄 ()
' 获取组合框内的编辑框句柄（GW_CHILD = 5）
编辑框句柄 ＝ 取子窗口_ (组合框句柄, 5)
如果真 (编辑框句柄 ≠ 0)
' 设置子类化，GWL_WNDPROC = -4
原编辑框过程 ＝ 置窗口信息_ (编辑框句柄, -4, 到整数 (&编辑框子过程))
输出调试文本 (“子类化安装成功，编辑框句柄：” ＋ 到文本 (编辑框句柄))

子程序名	返回值类型	公开	备 注
编辑框子过程	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

如果真 (消息 ＝ 256 且 参数1 ＝ 13)  ' WM_KEYDOWN = 256, VK_RETURN = 13
输出调试文本 (“在组合框编辑框中按下回车，弹出下拉列表。”)
' CB_SHOWDROPDOWN = 335, 参数1=1 展开
发送消息_ (取子窗口_ (组合框1.取窗口句柄 (), 5), 335, 1, 0)
返回 (0)
返回 (调用窗口过程_ (原编辑框过程, 句柄, 消息, 参数1, 参数2))

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

变量名	类 型	静态	数组	备 注
编辑框句柄	整数型

编辑框句柄 ＝ 取子窗口_ (组合框1.取窗口句柄 (), 5)
如果真 (编辑框句柄 ≠ 0 且 原编辑框过程 ≠ 0)
置窗口信息_ (编辑框句柄, -4, 原编辑框过程)
输出调试文本 (“子类化已卸载。”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 原编辑框过程, 整数型<br /> <br /> .DLL命令 取窗口信息_, 整数型, "user32.dll", "GetWindowLongA", , 公开<br />     .参数 窗口句柄, 整数型<br />     .参数 索引, 整数型<br /> .DLL命令 置窗口信息_, 整数型, "user32.dll", "SetWindowLongA", , 公开<br />     .参数 窗口句柄, 整数型<br />     .参数 索引, 整数型<br />     .参数 新值, 整数型<br /> .DLL命令 调用窗口过程_, 整数型, "user32.dll", "CallWindowProcA", , 公开<br />     .参数 前过程, 整数型<br />     .参数 窗口句柄, 整数型<br />     .参数 消息, 整数型<br />     .参数 参数1, 整数型<br />     .参数 参数2, 整数型<br /> .DLL命令 取子窗口_, 整数型, "user32.dll", "GetWindow", , 公开<br />     .参数 窗口句柄, 整数型<br />     .参数 关系, 整数型<br /> .DLL命令 发送消息_, 整数型, "user32.dll", "SendMessageA", , 公开<br />     .参数 窗口句柄, 整数型<br />     .参数 消息, 整数型<br />     .参数 参数1, 整数型<br />     .参数 参数2, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 组合框句柄, 整数型<br /> .局部变量 编辑框句柄, 整数型<br /> <br /> 组合框1.加入项目 (“项目A”, )<br /> 组合框1.加入项目 (“项目B”, )<br /> 组合框1.加入项目 (“项目C”, )<br /> <br /> 组合框句柄 ＝ 组合框1.取窗口句柄 ()<br /> ' 获取组合框内的编辑框句柄（GW_CHILD = 5）<br /> 编辑框句柄 ＝ 取子窗口_ (组合框句柄, 5)<br /> .如果真 (编辑框句柄 ≠ 0)<br />     ' 设置子类化，GWL_WNDPROC = -4<br />     原编辑框过程 ＝ 置窗口信息_ (编辑框句柄, -4, 到整数 (&编辑框子过程))<br />     输出调试文本 (“子类化安装成功，编辑框句柄：” ＋ 到文本 (编辑框句柄))<br /> .如果真结束<br /> <br /> .子程序 编辑框子过程, 整数型<br /> .参数 句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> <br /> .如果真 (消息 ＝ 256 且 参数1 ＝ 13)  ' WM_KEYDOWN = 256, VK_RETURN = 13<br />     输出调试文本 (“在组合框编辑框中按下回车，弹出下拉列表。”)<br />     ' CB_SHOWDROPDOWN = 335, 参数1=1 展开<br />     发送消息_ (取子窗口_ (组合框1.取窗口句柄 (), 5), 335, 1, 0)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (调用窗口过程_ (原编辑框过程, 句柄, 消息, 参数1, 参数2))<br /> <br /> .子程序 __启动窗口_将被销毁<br /> .局部变量 编辑框句柄, 整数型<br /> <br /> 编辑框句柄 ＝ 取子窗口_ (组合框1.取窗口句柄 (), 5)<br /> .如果真 (编辑框句柄 ≠ 0 且 原编辑框过程 ≠ 0)<br />     置窗口信息_ (编辑框句柄, -4, 原编辑框过程)<br />     输出调试文本 (“子类化已卸载。”)<br /> .如果真结束

高先生

你是想做类似搜索的意思吧  用 列表框啊 用什么组合框

Marvin

是这样的吧


1.e (2.5 KB, 下载次数: 9)

昨天 14:00 上传

点击文件名下载附件

十点半之后

Marvin 发表于 2026-6-30 14:00
是这样的吧

就是不想用这种

Marvin

十点半之后 发表于 2026-6-30 14:20
就是不想用这种

这种是最简单的了，那你想要那种

十点半之后

高先生 发表于 2026-6-30 11:34
你是想做类似搜索的意思吧  用 列表框啊 用什么组合框

可否给个简单的demo

十点半之后

高先生 发表于 2026-6-30 11:34
你是想做类似搜索的意思吧  用 列表框啊 用什么组合框

试了下列表框没有想组合框一样有下拉，不行