VB.NET 拖动无边框窗体编程实例

　Imports System.Drawing +r%z`up2  
Imports System.Windows.Forms vj<<:$_  
'****************************************** S-91PqS =  
　　Private oOriginalRegion As Region = Nothing G)|c-1thW  
　　' 用于窗体移动 A cgJ5nKLq  
　　Private bFormDragging As Boolean = False ,!N9 3%I@>  
  ep2=$kk|  
  QI Z P5  
  v_ 5S[1.  
  ]1rO+I0G  
　　Private oPointClicked As Point F$|xKW\-  
P +bfyF  
　　'****************************************** Si];Af- Y  
Z=<,1Fo   
　　Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown kg~9;P9h`  
0K-+n $y3  
　　Me.bFormDragging = True kL83Bxn  
　　Me.oPointClicked = New Point(e.X, e.Y) 5EtmNa]bB  
%mr|b&  
　　End Sub p}DHave  
　　'****************************************** QHM~`:xb  
z|57d} fzq  
　　Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp qU_ayXG^  
　　Me.bFormDragging = False \T4I>  
Yfs%?RL  
　　End Sub 0"udu<.D  
　　'****************************************** Ap5:. nhky  
vx+k9^78  
　　Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove {*VBw{2,  
　　If Me.bFormDragging Then CvG  
　　Dim oMoveToPoint As Point 'yg)xe~  
　　' 以当前鼠标位置为基础，找出目标位置 JDR6A2FO  
　　oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y)) !j6:eM*  
　　' 根据开始位置作出调整 L&O
kiz$  
　　oMoveToPoint.Offset(Me.oPointClicked.X * -1, _ 2e0Ti(j  
　　(Me.oPointClicked.Y + _ <ocQ#~T
'  
　　SystemInformation.CaptionHeight + _ 1YAee>a  
　　SystemInformation.BorderSize.Height) * -1) [~H U3cz)  
　　' 移动窗体 m\08//uhS  
　　Me.Location = oMoveToPoint &b-$@>h&  
　　End If `z=wp4TX  
I <Y/Q\J  
　　End Sub  oxGw3b