⽅法⼀
  这种⽅法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码，实现在⿏标左键按下后移动时，改变窗体的Left和Top属性，实现移动⽆标题栏的窗体。
  进⼊VB，把窗体Form1的BorderStyle属性设置为0-None(⽆标题栏)，再窗体上添加⼀个ButtonCommand组件，⽤来关闭程序。代码如下：
  Private Type POINT
  X As Single
  Y As Single
  End Type
  Dim FormP As POINT
  '记录窗体原始位置
  Dim MouseP As POINT
  '记录⿏标按下时的位置
  Dim MouseLButtonDown As Boolean
  '记录⿏标左键是否按下
  Private Sub Command1_Click()
  End '退出程序
  End Sub
  Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
mousemove是什么键  FormP.X = Form1.Left
  '记下窗体原始坐标位置
  FormP.Y = Form1.Top
  MouseP.X = X
  '记下⿏标按下时的位置
  MouseP.Y = Y
  If Button = 1 Then
  MouseLButtonDown = True
  '⿏标左键按下
  End If
  End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。