黑月界面类模块升级版增加过滤器功能

易语言 2020-02-26 18:00:44

黑月界面类模块升级版增加过滤器功能

this = zyBase.取指针 ()
.如果真 (this = 0)
返回 (假)
.如果真结束
hwnd = zyWindow.取窗口句柄 ()
.如果真 (hwnd ≠ 0)
返回 (假)
.如果真结束
_设置控件边框 (zyBase.GetMenber (“Border”), style, exStyle)
hwnd = CreateWindowEx (exStyle, className, windowName, 位或 (style, #窗口风格_子窗口, #窗口风格_可视, #窗口风格_排除重叠窗口重画), pos.x, pos.y, size.x, size.y, parent, id, g_hInstance, this)
SendMessage (hwnd, #WM_SETFONT, GetStockObject (#DEFAULT_GUI_FONT), 0)
返回 (hwnd ≠ 0)

.子程序 绑定, 逻辑型, 公开, 成功返回真,失败返回假。
.参数 参数_父窗口, 通用型, 参考, 参数只能是 窗口句柄 或 窗口类对象
.参数 参数_资源ID, 整数型
.参数 参数_使用默认字体, 逻辑型, 可空, 默认为真
.局部变量 hwnd, 整数型

置入代码 ({ 139, 69, 12, 139, 0, 137, 69, 252 })
hwnd = _TohWnd (hwnd)
hwnd = GetDlgItem (hwnd, 参数_资源ID)
.如果真 (参数_使用默认字体 且 hwnd ≠ 0)
SendMessage (hwnd, #WM_SETFONT, GetStockObject (#DEFAULT_GUI_FONT), 0)
.如果真结束
返回 (zyWindow._BindhWnd (hwnd))