下你所需,载你所想!
汇集开发技术源码资料

易语言自绘界面库源代码MUI_18_5_5 alpha版

:324.032KB :1 :2019-12-25 09:43:09

部分简介

找到了一种超级简单的方法:通过修改窗口的非客户区尺寸,隐藏窗口边框但阴影不会消失,只是这种方式唯一不好的一点就是系统默认边框不能完全消除,窗口底部必须保留一个像素宽边框。虽然还是有点瑕疵,但是我还是比较喜欢这种简单的处理方式。

参显示 = 选择 (是否为空 (参显示), 真, 参显示)
Inistance = _取程序模块句柄 (0)
ZeroMemory_WNDCLASSEXW (窗口类, LocalSize_WNDCLASSEXW (窗口类))
窗口类.hCursor = _LoadCursor (0, 32512)
.如果 (全局_窗口图标 = “”)
窗口类.hIcon = _LoadIconA (0, 32512)
.否则
窗口类.hIcon = 载入图象_ (_取程序模块句柄 (0), 全局_窗口图标, 1, 0, 0, 16)
.如果结束
窗口类.hInstance = Inistance
窗口类.cbSize = LocalSize_WNDCLASSEXW (窗口类)
窗口类.style = 位或 (2, 1, 8) ' 要指定多个属性要使用位或来添加
窗口类.lpfnWndProc = 到整数 (&核心窗口过程)
窗口类.hbrBackground = 5
窗口类.lpszClassName = Ansi转Unicode (“MUI_UWindow”)
_注册窗口类ExW (窗口类) ' 注册窗口类
Hwnd = _创建窗口ExW (选择 (参分层样式, #WS_EX_LAYERED, 0), Ansi转Unicode (“MUI_UWindow”), Ansi转Unicode (窗口标题), 位或 (#MUI_默认窗口样式, 524288), Rect.左边, Rect.顶边, Rect.宽度, Rect.高度, 父窗口, 0, Inistance, 0)
.如果真 (Hwnd = 0)
返回 (0)
.如果真结束
.如果真 (参显示)
_显示窗口 (Hwnd, 1) ' 显示窗口
_UpdateWindow (Hwnd) ' 刷新窗口
.如果真结束
返回 (Hwnd)

易语言自绘界面库源代码MUI_18_5_5 alpha版

热门推荐

相关文章