VB.NET拖動(dòng)窗體特殊應(yīng)用技巧分享
作者:佚名
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ú)邊框的窗體方法,以下為源代碼,朋友們可以參考一下
- Private oOriginalRegion As
Region = Nothing - ' 用于窗體移動(dòng)
- Private bFormDragging As
Boolean = False - Private oPointClicked As Point
- Private Sub Form1_MouseDown
(ByVal sender As Object, ByVal
e As System.Windows.Forms.
MouseEventArgs) Handles
MyBase.MouseDown - Me.bFormDragging = True
- Me.oPointClicked =
New Point(e.X, e.Y) - End Sub
- Private Sub Form1_MouseUp
(ByVal sender As Object, ByVal
e As System.Windows.Forms.
MouseEventArgs) Handles
MyBase.MouseUp- Me.bFormDragging = False
- End Sub
- Private Sub Form1_MouseMove(ByVal
sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs)
Handles MyBase.MouseMove- If Me.bFormDragging Then
- Dim oMoveToPoint As Point
- ' 以當(dāng)前鼠標(biāo)位置為基礎(chǔ),找出目標(biāo)位置
- oMoveToPoint = Me.PointToScreen
(New Point(e.X, e.Y))- ' 根據(jù)開始位置作出調(diào)整
- oMoveToPoint.Offset(Me.oPoint
Clicked.X * -1, _- (Me.oPointClicked.Y + _
- SystemInformation.CaptionHeight + _
- SystemInformation.BorderSize.
Height) * -1)- ' 移動(dòng)窗體
- Me.Location = oMoveToPoint
- End If
- End Sub
VB.NET拖動(dòng)窗體的一些特殊用法就為大家介紹到這里。
責(zé)任編輯:曹凱
來(lái)源:
博客園