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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
更換VB.NET窗體標(biāo)題欄的方法

#t#VB.NET經(jīng)過長時(shí)間的發(fā)展，很多用戶都很了解VB.NET窗體標(biāo)題欄了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。VB.NET做為VB6的升級版本，具備了許多新的功能，它可以簡便快捷地創(chuàng)建 .NET 應(yīng)用程序（包括 XML Web services 和 ASP.NET Web 應(yīng)用程序），還是一個(gè)功能強(qiáng)大的面向?qū)ο蟮木幊陶Z言（如繼承、接口和重載）。新的語言功能包括自由線程處理和結(jié)構(gòu)化異常處理。VB.NET 還完全集成了.NET 框架和公共語言運(yùn)行庫，.NET 框架和公共語言運(yùn)行庫共同提供語言互操作性、垃圾回收、增強(qiáng)的安全性和改進(jìn)的版本支持?？梢哉f是一個(gè)劃時(shí)代的產(chǎn)品！

無標(biāo)題欄的窗體的拖動問題，在特殊窗體的應(yīng)用中，我們有時(shí)需要把VB.NET窗體標(biāo)題欄屏蔽掉，以窗體換上自己的外殼。是，當(dāng)去掉了VB.NET窗體標(biāo)題欄后，移動窗體就成了一個(gè)問題。我們還是來看一下在VB6中的實(shí)現(xiàn)，VB6中實(shí)現(xiàn)（借助API函數(shù)SendMessage）在設(shè)計(jì)時(shí)將窗體的BorderStyle屬性設(shè)置為0-none

 
 
 
    
  
  
  
  1. PrivateDeclareFunction SendMessage Lib "User32" Alias "SendMessageA" 
    (ByVal hWnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam As Any) AsLong 
    2. 
  
  
  
  2. PrivateDeclareSub ReleaseCapture Lib "User32" () 
    3. 
  
  
  
  3. Const WM_NCLBUTTONDOWN = &HA1 
    4. 
  
  
  
  4. Const HTCAPTION = 2
    5. 
  
  
  
  5. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    6. 
  
  
  
  6. Dim lngReturnValue AsLong 
    7. 
  
  
  
  7. If Button = 1 Then 
    8. 
  
  
  
  8. 'Release capture 
    9. 
  
  
  
  9. Call ReleaseCapture() 
    10. 
  
  
  
  10. 'Send a 'left mouse button down on caption'-message to our form 
    11. 
  
  
  
  11. lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) 
    12. 
  
  
  
  12. EndIf 
    13. 
  
  
  
  13. EndSub 
    14. 
  
  
  
  14. PrivateSub Form_Paint() 
    15. 
  
  
  
  15. Me.Print("Click on the form, hold the mouse button and drag it") 
    16. 
  
  
  
  16. EndSub
    17.

在VB.NET窗體標(biāo)題欄中，這次需要借助API SendMessage了，在設(shè)計(jì)時(shí)將Form.FormBorderStyle 屬性設(shè)置為None，然后添加以下代碼：

 
 
 
    
  
  
  
  1. DeclareFunction SendMessage Lib "user32" Alias "SendMessageA" 
    (ByVal hwnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, 
    ByVal lParam AsInteger) AsInteger 
    2. 
  
  
  
  2.   
    3. 
  
  
  
  3. PrivateDeclareSub ReleaseCapture Lib "User32" () 
    4. 
  
  
  
  4. Const WM_NCLBUTTONDOWN = &HA1 
    5. 
  
  
  
  5. Const HTCAPTION = 2
    6. 
  
  
  
  6.   
    7. 
  
  
  
  7. PrivateSub Form1_MouseDown(ByVal sender AsObject, 
    ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.MouseDown 
    8. 
  
  
  
  8. ReleaseCapture() 
    9. 
  
  
  
  9. SendMessage(Me.Handle.ToInt64, WM_NCLBUTTONDOWN, HTCAPTION, 0) 
    10. 
  
  
  
  10. EndSub
    11.

網(wǎng)站題目：更換VB.NET窗體標(biāo)題欄的方法
轉(zhuǎn)載注明：http://m.5511xx.com/article/dpjhpce.html