日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
老鳥分析VB.NET窗體透明度

#t#VB.NET還是比較常用的，于是我研究了一下VB.NET窗體透明度漸變效果：我們還是來看一下在VB6中的實(shí)現(xiàn)，在這里拿出來和大家分享一下，希望對(duì)大家有用。

10余年專注建站、設(shè)計(jì)、互聯(lián)網(wǎng)產(chǎn)品定制網(wǎng)站設(shè)計(jì)服務(wù)，業(yè)務(wù)涵蓋品牌網(wǎng)站設(shè)計(jì)、購物商城網(wǎng)站建設(shè)、成都小程序開發(fā)、軟件系統(tǒng)開發(fā)、重慶APP軟件開發(fā)等。憑借多年豐富的經(jīng)驗(yàn)，我們會(huì)仔細(xì)了解每個(gè)客戶的需求而做出多方面的分析、設(shè)計(jì)、整合，為客戶設(shè)計(jì)出具風(fēng)格及創(chuàng)意性的商業(yè)解決方案，創(chuàng)新互聯(lián)建站更提供一系列網(wǎng)站制作和網(wǎng)站推廣的服務(wù)，以推動(dòng)各中小企業(yè)全面信息數(shù)字化，并利用創(chuàng)新技術(shù)幫助各行業(yè)提升企業(yè)形象和運(yùn)營(yíng)效率。

使用這個(gè)函數(shù)，可以輕松控制VB.NET窗體透明度。按照微軟的要求，透明窗體在創(chuàng)建時(shí)應(yīng)使用WS_EX_LAYERED參數(shù)（用CreateWindowEx），或者在創(chuàng)建后設(shè)置該參數(shù)（用SetWindowLong），我選用后者。

SetLayeredWindowAttributes函數(shù),其中hwnd是透明窗體的句柄，crKey為顏色值，bAlpha是透明度，取值范圍是[0,255]，dwFlags是透明方式，可以取兩個(gè)值：當(dāng)取值為 LWA_ALPHA時(shí)，crKey參數(shù)無效，bAlpha參數(shù)有效；當(dāng)取值為L(zhǎng)WA_COLORKEY時(shí)，bAlpha參數(shù)有效而窗體中的所有顏色為 crKey的地方將變?yōu)橥该鳌?/p>

 
 
 
    
  
  
  
  1. Const LWA_COLORKEY = &H1 
    2. 
  
  
  
  2. Const LWA_ALPHA = &H2 
    3. 
  
  
  
  3. Const GWL_EXSTYLE = (-20) 
    4. 
  
  
  
  4. Const WS_EX_LAYERED = &H80000 
    5. 
  
  
  
  5. PrivateDeclareFunction GetWindowLong Lib "user32" Alias "GetWindowLongA" 
    (ByVal hWnd AsLong, ByVal nIndex AsLong) AsLong 
    6. 
  
  
  
  6. PrivateDeclareFunction SetWindowLong Lib "user32" Alias "SetWindowLongA" 
    (ByVal hWnd AsLong, ByVal nIndex AsLong, ByVal dwNewLong AsLong) AsLong 
    7. 
  
  
  
  7. PrivateDeclareFunction SetLayeredWindowAttributes Lib "user32" 
    (ByVal hWnd AsLong, ByVal crKey AsLong, ByVal bAlpha AsByte, ByVal dwFlags AsLong) AsLong 
    8. 
  
  
  
  8. PrivateSub Form_Load() 
    9. 
  
  
  
  9. Dim Ret AsLong 
    10. 
  
  
  
  10. 'Set the window style to 'Layered' 
    11. 
  
  
  
  11. Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) 
    12. 
  
  
  
  12. RetRet = Ret Or WS_EX_LAYERED 
    13. 
  
  
  
  13. SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret 
    14. 
  
  
  
  14. 'Set the opacity of the layered window to 128 
    15. 
  
  
  
  15. '我們可以設(shè)置這個(gè)數(shù)值來控制透明程度 
    16. 
  
  
  
  16. SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA 
    17. 
  
  
  
  17. EndSub
    18.

在VB.NET中，太簡(jiǎn)單了！系統(tǒng)為窗體提供了Opacity屬性，來確定窗體的不透明和透明程度，0%為透明，100%為不透明。以下程序通過循環(huán)顯示VB.NET窗體透明度過程，為了讓大家看清楚其變化，在循環(huán)過程中使用了System.Threading.Thread.Sleep來停頓。

 
 
 
    
  
  
  
  1. PrivateSub button1_Click(ByVal sender As System.Object, 
    _ByVal e As System.EventArgs) Handles button1.Click 
    2. 
  
  
  
  2. '窗體的透明度漸變過程 
    3. 
  
  
  
  3. button1.Enabled = False
    4. 
  
  
  
  4. Dim I AsDouble 
    5. 
  
  
  
  5. For I = 0.01 To 1 Step 0.01 
    6. 
  
  
  
  6. Me.Opacity = I
    7. 
  
  
  
  7. System.Windows.Forms.Application.DoEvents() 
    8. 
  
  
  
  8. System.Threading.Thread.Sleep(5) 
    9. 
  
  
  
  9. Next 
    10. 
  
  
  
  10. Me.Opacity = 1
    11. 
  
  
  
  11. button1.Enabled = True
    12. 
  
  
  
  12. EndSub
    13.

當(dāng)前名稱：老鳥分析VB.NET窗體透明度
文章鏈接：http://www.5511xx.com/article/cdjeiie.html