怎么实现“鼠标穿透”,即鼠标对窗体失去作用,对着它点右键要出现WINDOWS的桌面右菜单
来源:互联网 发布:淘宝发货能改地址吗 编辑:程序博客网 时间:2024/03/29 18:12
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As Long = &H20&
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
'你再加上WS_EX_TRANSPARENT就能穿透鼠标了
Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 200
SetLayeredWindowAttributes Me.hWnd, 0, 50, LWA_ALPHA
End Sub
根本就不需要 在右键事件里把消息转发给桌面句柄
Public Sub SetFormTran(ByVal Obj As form, ByVal Tran As Long)
On Error GoTo ErrTran
SetWindowLong Obj.Hwnd, GWL_EXSTYLE, GetWindowLong(Obj.Hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetLayeredWindowAttributes Obj.Hwnd, 0, Tran, LWA_ALPHA Or LWA_COLORKEY
Obj.Refresh
ErrTran:
End Sub
private sub command1_click
SetFormTran form1,100
end sub
- 怎么实现“鼠标穿透”,即鼠标对窗体失去作用,对着它点右键要出现WINDOWS的桌面右菜单
- 怎么实现“鼠标穿透”,即鼠标对窗体失去作用,对着它点右键要出现WINDOWS的桌面右菜单
- 注册桌面鼠标右键菜单
- 实现“鼠标穿透窗体”功能
- 鼠标右键菜单怎么截图
- Unity3d 对Gameobject实现鼠标右键点击
- Windows XP风格的鼠标右键菜单
- VC鼠标右键弹出菜单的实现
- VC鼠标右键弹出菜单的实现
- 鼠标右键弹出快捷菜单的实现
- Javascript 对鼠标左右键的区分
- swing中鼠标右击弹出菜单怎么实现
- Win8系统鼠标右键突然失灵怎么办 win8桌面右键菜单失效怎么修复
- WIN7修复桌面鼠标右键菜单项目
- JS实现鼠标右键菜单
- 禁止对图片鼠标右键
- C#-窗体鼠标穿透
- 实现Windows应用程序对键盘与鼠标的响应
- 利用ffmpeg+mencoder视频转换的总结(C#)
- kshen转VS 快捷键
- CRLF注入攻击原理和防范措施
- sql集合操作
- 盘县人真牛B
- 怎么实现“鼠标穿透”,即鼠标对窗体失去作用,对着它点右键要出现WINDOWS的桌面右菜单
- 在C#中用户控件与窗体间的消息传递
- DOS多任务系统实现
- WinSock API 入门
- 谁的错与团队精神
- 个人博客初体验
- 在cygwin下编译MySQLdb for python
- 设计美好的服务器(4)--Mule ESB笔记
- 利用正则表达式限制网页表单里的文本框输入内容