首先将form的boderstyle属性设为0
Dim movesScreen As Boolean
Dim mousX As IntegerDim mousY As Integer
Dim currX As Integer
Dim currY As Integer
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then
movesScreen = TruemousX = X
mousY = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer,Y As Single)
If movesScreen Then
currX = Form1.Left - mousX + XcurrY = Form1.Top - mousY + Y
Form1.Move currX,currY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Y As Single)
movesScreen = False
End Sub版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
