vb2008 ( vb .net ) 下如何实现 鼠标穿透 ??

Const GWL_EXSTYLE = (-20)

网站设计制作、网站设计服务团队是一支充满着热情的团队，执着、敏锐、追求更好，是创新互联的标准与要求，同时竭诚为客户提供服务是我们的理念。成都创新互联公司把每个网站当做一个产品来开发，精雕细琢，追求一名工匠心中的细致，我们更用心！

Const WS_EX_LAYERED = H80000

Const WS_EX_TRANSPARENT As Integer= H20

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer

Private Sub Command1_Click()

SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Or WS_EX_TRANSPARENT

End Sub

'取消鼠标穿透(一般窗体) SetWindowLong Me.hwnd, GWL_EXSTYLE, 0

'取消鼠标穿透(UpdateLayeredWindow画窗体) SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED

请问在VB.net中怎样实现控件具有透明背景?

将控件的背景色设为透明即可：

如Label1.BackColor=Color.

Transparent

当然，还有别的方式可使底色透明，你自已琢磨一下。

vb中鼠标怎么穿透控件 解决问题后一定追加分

那就让Picture1控件的Enabled=false

说实话，看不太懂

或者直接让Picture1控件不存在或者调节透明度

本文名称：包含vb.net控件穿透的词条
URL分享：http://ybzwz.com/article/hohogc.html