VB.NET 拖动无边框的窗体

2004-09-10 15:54 出处:CSDN 作者:kevin521 责任编辑:linjixiong

  这是一个使用VB.net开发拖动无边框的窗体,以下为源代码,朋友们可以参考一下。



  '******************************************
  Private oOriginalRegion As Region = Nothing
  ' 用于窗体移动
  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
  ' 以当前鼠标位置为基础,找出目标位置
  oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
  ' 根据开始位置作出调整
  oMoveToPoint.Offset(Me.oPointClicked.X * -1, _
  (Me.oPointClicked.Y + _
  SystemInformation.CaptionHeight + _
  SystemInformation.BorderSize.Height) * -1)
  ' 移动窗体
  Me.Location = oMoveToPoint
  End If

  End Sub



 

察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:
302 Found

302 Found

The requested resource resides temporarily under a different URI.


Powered by Tengine

相关文章

相关软件: