VB移动无边框窗体 最简单方法

信赖年夜家在玩VB的时候，经常会觉得VB自带的窗体太难看了，于是总会设置成无边框窗体，可是无边框窗体又不会移动该怎么办呢？今天我抽闲写个最简单的移动无边框窗体的方法吧，无API。(其实还有个用API的方法可以实现相同效果，但是觉得代码稍长，所以就不写出来了)。如果你觉得这篇文章对你有，请支持/转载，谢谢。

End Sub

If i = 1 Then

关键字：VB移动无边框窗体 VB移动无边框窗体最简单方法 无API移动无边框窗体

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

i = 1

x1 = X

y1 = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

作者：flydoo飞度 欢迎加QQ编程群：26438718 博客：http://hi.baidu.com/%C0%E1%BA%DB_%B7%C9

x2 = X - x1 + Form1.Left

y2 = Y - y1 + Form1.Top

Form1.Move x2, y2

End If

===============================================================宫锁连城电视剧=============== ==

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

i = 0

End Sub

=================================================================================

Dim i, x1 As Double, y1 As Double, x2 As Double, y2 As Double