易语言超级编辑框类模块源码 [db:版本]

易语言超级编辑框类模块源码

系统结构:设置字体,创建超级编辑框,超级编辑框置背景颜色,超级编辑框取行数,超级编辑框最大允许长度,超级编辑框隐藏选择,超级编辑框清空撤消数据,LoadLibrary,CreateWindowEx,SendMessage,DeleteObject,CreateFont,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 设置字体
| |
| |------ 创建超级编辑框
| |
| |------ 超级编辑框置背景颜色
| |
| |------ 超级编辑框取行数
| |
| |------ 超级编辑框最大允许长度
| |
| |------ 超级编辑框隐藏选择
| |
| |------ 超级编辑框清空撤消数据
| |
| |
======调用的Dll
| |
| |---[dll]------ LoadLibrary
| |
| |---[dll]------ CreateWindowEx
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ CreateFont

调用的DLL命令:

.DLL命令 LoadLibrary, 整数型, "kernel32.dll", "LoadLibraryA", 公开
.参数 DLL文件名, 文本型

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA", 公开
.参数 dwExStyle, 整数型
.参数 lpClassName, 文本型
.参数 lpWindowName, 文本型
.参数 dwStyle, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hWndParent, 整数型
.参数 hMenu, 整数型
.参数 hInstance, 整数型
.参数 lpParam, 整数型

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA", 公开
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", 公开
.参数 对象句柄, 整数型, ,

.DLL命令 CreateFont, 整数型, "gdi32.dll", "CreateFontA", 公开
.参数 nHeight, 整数型, , IfHeight
.参数 nWidth, 整数型, , IfWidth
.参数 nEscapement, 整数型, , IfEscapement
.参数 nOrientation, 整数型, , IfOrientation
.参数 fnWeight, 整数型, , IfWeight
.参数 fdwItalic, 整数型, , IfItalic
.参数 fdwUnderline, 整数型, , IfUnderline
.参数 fdwStrikeOut, 整数型, , IfStrikeOut
.参数 fdwCharSet, 整数型, , IfCharSet
.参数 OutputPrecision, 整数型, , IfOutputPrecision
.参数 ClipPrecision, 整数型, , IfClipPrecision
.参数 Quality, 整数型, , IfQuality
.参数 PitchAndFamily, 整数型, , IfPitchAndFamily
.参数 lpszFace, 文本型, , IfFaceName;