偷偷摘套内射激情视频,久久精品99国产国产精,中文字幕无线乱码人妻,中文在线中文a,性爽19p

VB.NET拖動(dòng)窗體特殊應(yīng)用技巧分享

開發(fā) 后端
VB.NET拖動(dòng)窗體的實(shí)現(xiàn)方法可以有很多種,而且遇到不規(guī)則的窗體話還有不同的處理方式。下面介紹的這種方式就是針對(duì)無(wú)邊框窗體進(jìn)行拖動(dòng)的實(shí)現(xiàn)方法。

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

這是一個(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. Me.bFormDragging = False 
  3. End Sub 

 

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

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

責(zé)任編輯:曹凱 來(lái)源: 博客園
相關(guān)推薦

2010-01-13 15:52:59

VB.NET浮動(dòng)窗體

2010-01-11 15:12:30

VB.NET特殊窗體

2009-10-12 17:32:36

VB.NET窗體應(yīng)用技

2009-04-30 13:24:45

VB.NET 2008窗體應(yīng)用實(shí)例

2009-10-27 13:14:35

VB.NET窗體應(yīng)用

2010-01-13 16:45:44

VB.NET刪除控件

2009-11-03 17:31:01

VB.NET窗體

2010-01-08 14:07:47

VB.NET窗體傳值

2010-01-22 11:02:30

VB.NET創(chuàng)建新變量

2010-01-18 16:33:57

VB.NET加密文件

2010-01-18 18:50:26

VB.NET鼠標(biāo)手勢(shì)

2010-01-15 19:04:09

2009-11-03 17:24:01

VB.NET特殊形狀窗

2010-01-14 16:04:32

VB.NET顯示時(shí)間

2010-01-18 16:41:47

VB.NET用戶登錄頁(yè)

2010-01-18 10:26:19

VB.NET中心旋轉(zhuǎn)圖

2010-01-12 17:02:54

VB.NET文件上傳

2009-10-09 16:54:03

VB.NET窗體

2010-01-12 18:00:50

VB.NET界面

2010-01-08 18:16:52

VB.NET變量
點(diǎn)贊
收藏

51CTO技術(shù)棧公眾號(hào)