分享一个易语言手动创建编辑框的源码

太聪明

6666666666666666

lhn0925

学习一下

杰西卡技术传媒

阿素里戈沃里嘚 发表于 2025-7-15 13:45
把子程序WndProcMyEdit改动一下就可以了。。。

[e=0].版本 2

谢谢老师

阿素里戈沃里嘚

杰西卡技术传媒 发表于 2025-7-15 12:39
编辑框内容.被改变用什么命令

把子程序WndProcMyEdit改动一下就可以了。。。

  

子程序名	返回值类型	公开	备 注
WndProcMyEdit	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
uMsg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
hDc	整数型
szText	文本型

如果真 (uMsg ＝ #WM_CHAR 或 uMsg ＝ #WM_KEYDOWN 或 uMsg ＝ #WM_PASTE )
处理事件 ()
调试输出 (“编辑框内容被改变，其标记值为”, GetWindowLong (hWnd, #GWL_ID ), “内容为：”, 取编辑框内容 (hWnd))

如果真 (uMsg ＝ #WM_CHAR )
hDc ＝ GetDC (取窗口句柄 ())
szText ＝ “Just a test,” ＋ 字符 (wParam)
TextOut (hDc, 宽度 ÷ 3, 高度 ÷ 3, szText, lstrlen (szText))  ' 输出文字
ReleaseDC (取窗口句柄 (), hDc)
返回 (CallWindowProc (lpfnOldProc, hWnd, uMsg, wParam, lParam))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 WndProcMyEdit, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 uMsg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 hDc, 整数型<br /> .局部变量 szText, 文本型<br /> <br /> .如果真 (uMsg ＝ #WM_CHAR 或 uMsg ＝ #WM_KEYDOWN 或 uMsg ＝ #WM_PASTE)<br />     处理事件 ()<br />     调试输出 (“编辑框内容被改变，其标记值为”, GetWindowLong (hWnd, #GWL_ID), “内容为：”, 取编辑框内容 (hWnd))<br /> .如果真结束<br /> <br /> .如果真 (uMsg ＝ #WM_CHAR)<br />     hDc ＝ GetDC (取窗口句柄 ())<br />     szText ＝ “Just a test,” ＋ 字符 (wParam)<br />     TextOut (hDc, 宽度 ÷ 3, 高度 ÷ 3, szText, lstrlen (szText))  ' 输出文字<br />     ReleaseDC (取窗口句柄 (), hDc)<br /> .如果真结束<br /> 返回 (CallWindowProc (lpfnOldProc, hWnd, uMsg, wParam, lParam))

sky122

6666666666666666

cf2010

感谢楼楼分享，

花小旭

支持支持支持支持支持

笨来无一悟

功德无量

杰西卡技术传媒

编辑框内容.被改变用什么命令

qqmqqg

速度如何