vb2008 ( vb .net ) 下如何實(shí)現(xiàn) 鼠標(biāo)穿透 ??

Const GWL_EXSTYLE = (-20)

網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)服務(wù)團(tuán)隊(duì)是一支充滿著熱情的團(tuán)隊(duì)，執(zhí)著、敏銳、追求更好，是創(chuàng)新互聯(lián)的標(biāo)準(zhǔn)與要求，同時(shí)竭誠(chéng)為客戶提供服務(wù)是我們的理念。成都創(chuàng)新互聯(lián)公司把每個(gè)網(wǎng)站當(dāng)做一個(gè)產(chǎn)品來(lái)開(kāi)發(fā)，精雕細(xì)琢，追求一名工匠心中的細(xì)致，我們更用心！

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

'取消鼠標(biāo)穿透(一般窗體) SetWindowLong Me.hwnd, GWL_EXSTYLE, 0

'取消鼠標(biāo)穿透(UpdateLayeredWindow畫窗體) SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED

請(qǐng)問(wèn)在VB.net中怎樣實(shí)現(xiàn)控件具有透明背景?

將控件的背景色設(shè)為透明即可：

如Label1.BackColor=Color.

Transparent

當(dāng)然，還有別的方式可使底色透明，你自已琢磨一下。

vb中鼠標(biāo)怎么穿透控件 解決問(wèn)題后一定追加分

那就讓Picture1控件的Enabled=false

說(shuō)實(shí)話，看不太懂

或者直接讓Picture1控件不存在或者調(diào)節(jié)透明度

當(dāng)前文章：包含vb.net控件穿透的詞條
網(wǎng)頁(yè)路徑：http://chinadenli.net/article12/hohogc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、電子商務(wù)、網(wǎng)站內(nèi)鏈、網(wǎng)站設(shè)計(jì)、網(wǎng)站維護(hù)、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)