怎么实现“鼠标穿透”，即鼠标对窗体失去作用，对着它点右键要出现WINDOWS的桌面右菜单

Question

如题~~例如现在的“雪狐天气日历”和“桌面天气秀”就有这个功能
这些日历有个“嵌入桌面”功能，就好象是和桌面墙纸融为一体了一样鼠标对着它点右键，就等于和桌面其它地方点右键一样~~~~视它不存在~~

Answer 1

HotUs(李海) 请教了~~~~~怎么实现？谢谢！！

Answer 2

以前这里有人贴过代码的，很简单。
windows提供了一个api

Answer 3

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

Answer 4

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 Subprivate sub command1_click
SetFormTran form1,100
end sub

Answer 5

同意  mosangbike(莫桑比克) 
转发一下消息就行了

Answer 6

OK!
 laviewpbt(人一定要靠自己)
Good!!