日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET拖動(dòng)窗體特殊應(yīng)用技巧分享

VB.NET編程語(yǔ)言的推出，為開(kāi)發(fā)人員帶來(lái)了非常大的好處。在實(shí)際應(yīng)用中，大家可以輕松的使用這款語(yǔ)言實(shí)現(xiàn)各種功能需求。比如這篇文章中為打擊介紹的有關(guān)VB.NET拖動(dòng)窗體等。下面就一起來(lái)看看具體的操作方法。#t#

創(chuàng)新互聯(lián)是一家從事企業(yè)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、成都做網(wǎng)站、行業(yè)門戶網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)制作的專業(yè)網(wǎng)站建設(shè)公司，擁有經(jīng)驗(yàn)豐富的網(wǎng)站建設(shè)工程師和網(wǎng)頁(yè)設(shè)計(jì)人員，具備各種規(guī)模與類型網(wǎng)站建設(shè)的實(shí)力，在網(wǎng)站建設(shè)領(lǐng)域樹(shù)立了自己獨(dú)特的設(shè)計(jì)風(fēng)格。自公司成立以來(lái)曾獨(dú)立設(shè)計(jì)制作的站點(diǎn)近千家。

這是一個(gè)使用VB.NET拖動(dòng)窗體中的拖動(dòng)無(wú)邊框的窗體方法，以下為源代碼，朋友們可以參考一下

  1. Private oOriginalRegion As 
    Region = Nothing 
  2. ' 用于窗體移動(dòng)  
  3. Private bFormDragging As 
    Boolean = False 
  4. Private oPointClicked As Point 
  1. Private Sub Form1_MouseDown
    (ByVal sender As Object, ByVal 
    e As System.Windows.Forms.
    MouseEventArgs) Handles 
    MyBase.MouseDown  
  2. Me.bFormDragging = True 
  3. Me.oPointClicked = 
    New Point(e.X, e.Y)  
  4. End Sub 
 
 
 
    
  
  
  
  1. Private Sub Form1_MouseUp
    (ByVal sender As Object, ByVal 
    e As System.Windows.Forms.
    MouseEventArgs) Handles 
    MyBase.MouseUp  
    2. 
  
  
  
  2. Me.bFormDragging = False 
    3. 
  
  
  
  3. End Sub 
    4. 
 
 
 
 
 
 
    
  
  
  
  1. Private Sub Form1_MouseMove(ByVal 
    sender As Object, ByVal e As 
    System.Windows.Forms.MouseEventArgs) 
    Handles MyBase.MouseMove  
    2. 
  
  
  
  2. If Me.bFormDragging Then  
    3. 
  
  
  
  3. Dim oMoveToPoint As Point  
    4. 
  
  
  
  4. ' 以當(dāng)前鼠標(biāo)位置為基礎(chǔ)，找出目標(biāo)位置  
    5. 
  
  
  
  5. oMoveToPoint = Me.PointToScreen
    (New Point(e.X, e.Y))  
    6. 
  
  
  
  6. ' 根據(jù)開(kāi)始位置作出調(diào)整  
    7. 
  
  
  
  7. oMoveToPoint.Offset(Me.oPoint
    Clicked.X * -1, _  
    8. 
  
  
  
  8. (Me.oPointClicked.Y + _  
    9. 
  
  
  
  9. SystemInformation.CaptionHeight + _  
    10. 
  
  
  
  10. SystemInformation.BorderSize.
    Height) * -1)  
    11. 
  
  
  
  11. ' 移動(dòng)窗體  
    12. 
  
  
  
  12. Me.Location = oMoveToPoint 
    13. 
  
  
  
  13. End If  
    14. 
  
  
  
  14. End Sub 
    15.

VB.NET拖動(dòng)窗體的一些特殊用法就為大家介紹到這里。


當(dāng)前標(biāo)題：VB.NET拖動(dòng)窗體特殊應(yīng)用技巧分享
URL分享：http://www.dlmjj.cn/article/cooeohp.html