vb.net做的无窗口应用程序如何实现移动？ – 网络|

VB6.0写的，代码很简单，无意中写成的。应该可以参考。不需要任何api函数。在无边框窗体顶部中放入一个label标签。然后用label的mousedown和mousemove事件实现

Dima,bAsSingle

PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

a=X

b=Y

EndSub

PrivateSubLabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then

Form1.MoveLeft+X-a,Top+Y-b

EndIf

EndSub