展开全部
利用API设置窗口透明度,先设计一个欢迎窗口,然后设置底图 最后利用时钟组件,具体自己实现,贴出例程部分,滑动滑块可更改窗口透明度
----------------------------------------------------------------
.版本 2
.DLL命令 SetLayeredWindowAttributes, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd, 整数型
.参数 crKey, 整数型
.参数 bAlpha, 整数型
.参数 dwFlags, 整数型
.DLL命令 GetWindowLong, 整数型, , "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型
.版本 2
.常量 LWA_ALPHA, "2"
.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 Ret, 整数型
Ret = GetWindowLong (取窗口句柄 (), -20)
Ret = 位或 (Ret, 524288)
SetWindowLong (取窗口句柄 (), -20, Ret)
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 255, #LWA_ALPHA)
.子程序 _滑块条1_位置被改变
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 滑块条1.位置, #LWA_ALPHA)
----------------------------------------------------------------
.版本 2
.DLL命令 SetLayeredWindowAttributes, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd, 整数型
.参数 crKey, 整数型
.参数 bAlpha, 整数型
.参数 dwFlags, 整数型
.DLL命令 GetWindowLong, 整数型, , "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型
.版本 2
.常量 LWA_ALPHA, "2"
.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 Ret, 整数型
Ret = GetWindowLong (取窗口句柄 (), -20)
Ret = 位或 (Ret, 524288)
SetWindowLong (取窗口句柄 (), -20, Ret)
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 255, #LWA_ALPHA)
.子程序 _滑块条1_位置被改变
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 滑块条1.位置, #LWA_ALPHA)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询