方法一
这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码,实现在鼠标左键按下后移动时,改变窗体的Left和Top属性,实现移动无标题栏的窗体。
进入VB,把窗体Form1的BorderStyle属性设置为0-None(无标题栏),再窗体上添加一个ButtonCommand组件,用来关闭程序。代码如下:
PrivateTypePOINT
XAsSingle
YAsSingle
EndType
DimFormPAsPOINT
'记录窗体原始位置
DimMousePAsPOINT
'记录鼠标按下时的位置
DimMouseLButtonDownAsBoolean
'记录鼠标左键是否按下
PrivateSubCommand1_Click()
End'退出程序
EndSub...[ 查看全文 ]