精易模块v7.2窗口_置透明度无效

恭圆设计

窗口_置透明度 (_启动窗口.取窗口句柄 (), 80, )


精易模块v7.2窗口_置透明度无效


大家试下。望修复。

renhai

下载下来看看

renhai

下载下来看看

项目部002

收到反馈，立即着手处理，感谢反馈

zl2017

.版本 2

SetTransparent (取窗口句柄 (), 60)

.子程序 SetTransparent, , 公开
.参数 hwnd, 整数型
.参数 alpha, 短整数型

SetWindowLongA (hwnd, -20, 位或 (GetWindowLongA (取窗口句柄 (), -20), 524288))
SetLayeredWindowAttributes (hwnd, 0, 255 × alpha ÷ 100, 2)
' void SetTransparent(HWND hwnd,UINT alpha)
' {
' LAYERFUNC SetLayer;
' HMODULE hmod=LoadLibrary("user32.dll");
' SetWindowLong(hwnd,GWL_EXSTYLE,GetWindowLong(hwnd,GWL_EXSTYLE)|0x80000L);
' SetLayer=(LAYERFUNC)GetProcAddress(hmod,"SetLayeredWindowAttributes");
' SetLayer(hwnd,0,(255*alpha)/100,0x2);
' FreeLibrary(hmod);
' }