重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

包含vb.net控件穿透的词条

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控件穿透的词条
网站路径:http://cqcxhl.cn/article/hohogc.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP