主题：[讨论]请问，如何在vfp里实现半透明窗口
snakebird
[专家分：0] 发布于 2006-04-10 20:13:00
现在很多程序的界面都是半透明的，甚至还有半透明和不透明在同一个窗口里。
请问，如何在vfp里实现呀？
回复列表 （共3个回复）
沙发
snakebird [专家分：0] 发布于 2006-04-11 19:22:00
真的没有人知道吗？
哪位老大帮帮忙，急！
板凳
lbscyb [专家分：4780] 发布于 2006-04-13 12:58:00
vfp 自带的示例中有透明表单，你只需要修改其中的参数就可以控制透明的程度了！
3 楼
zls_1111 [专家分：0] 发布于 2008-11-17 14:29:00
可以通过SetLayeredWindowAttributes( )函数的bAlpha参数来指定表单的透明度
举个例子：表单中用滑尺控件来控制表单的透明度，将滑尺控件的Max属性值为25，当移动滑动块时，会将移动块的值乘以10来作为当前的透明度值，当移动到最右边时，则会使用255作为透明度值，而不是250（25×10）。该控件的Change事件的代码如下：
LOCAL lnValue
DO CASE
CASE THIS.Value = 0 &&滑动块移动到最左边
lnValue = 0
CASE THIS.Value = 25 &&滑动块移动到最右边
lnValue = 255
OTHERWISE
lnValue = THIS.Value * 10
ENDCASE
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, lnValue, 2) &&设置透明度
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — [讨论]请问，如何在vfp里实现半透明窗口