前端之家收集整理的这篇文章主要介绍了
vb6中无标题栏窗口的拖动（非API可指定标题栏高度），
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
vb6中无
标题栏窗口的拖动（非API可指定
标题栏高度）
Dim mX As Long,mY As Long
Const titleHeight = 750 '标题栏高度
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button And vbLeftButton And Y < titleHeight Then
mX = X: mY = Y
Debug.Print X,Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer,Y As Single)
If Button And vbLeftButton And Y < titleHeight Then
Me.Move Me.Left - mX + X,Me.Top - mY + Y
End If
End Sub 原文链接：/vb/260186.html
