关于VFP主窗体鼠标点击退出菜单及表单透明问题
各位高手,请帮忙解决VFP编程中两个难题,非常感谢!
1.主窗口鼠标点击退出表单事
我用顶层表单做了程序菜单,用1个表单做了下拉菜单,現其它功能都实现了,就在主窗体(主程序生成)点击鼠标如何能退出下拉菜单?
2.表单透明问题
我想使表单透明,但表单内控件(图片)不透明,能否实现?
请髙手指教,谢谢!
表单的 Init 事件代码:
Declare Integer SetWindowLong In user32 Integer HWnd,Integer nIndex,Integer dwNewLong
Declare Integer SetLayeredWindowAttributes In user32 Integer HWnd,Integer crKey,SHORT bAlpha,Integer dwFlags
=SetWindowLong(Thisform.HWnd,-20,0x00080000)&& 分层窗口
=SetLayeredWindowAttributes(Thisform.HWnd,Rgb(236,233,216),0,1)&& 去除表单的背景色 Rgb(236,233,216)
效果:
注:非顶层表单需将表单 Desktop 属性设为 .T.
[解决办法]
点击主表单第一个按钮,在下方出现第二个表单
假设你的第二表单为:form2,那么主表单第一个按钮的 Click 事件代码为:
Public form2
Do Form c:\form2.scx Name form2
另外在主表单上加一个按钮,如 Command2,其 Click 事件代码为:
form2.Release
主表单的 Init 事件代码:
Thisform.Command2.Visible=.F.
=Bindevent(_Screen,"Click",Thisform.Command2,"Click") && Bindevent 需要 vfp8.0 及以上