在VB中实现移动没有标题栏的窗口

方法一

该方法是在处理窗体的MouseDown、MouseUp、MouseMove等事件的过程中添加代码，以改变鼠标左键按下时窗体的Left和Top属性，移动无标题栏的窗体。

进入VB，将Form1的BorderStyle属性设置为0-None(无标题栏)，然后在窗体上添加一个ButtonCommand组件来关闭程序。代码如下:

私有类型点

x表示单身

y表示单身

结束类型

作为点的尺寸形式

记录表单的原始位置。

将鼠标指针调暗为点

记录下鼠标按下时的位置。

将MouseLButtonDown显示为布尔值

记录鼠标左键是否被按下。

私有子命令1_Click()

结束'退出程序。

末端接头

私有子窗体_MouseDown(按钮为整数，Shift为整数，X为单值，Y为单值)

FormP。X = Form1。左边的

记下表格的原始坐标位置。

FormP。Y = Form1。顶端

MouseP。X = X

记下鼠标按下时的位置。

MouseP。Y = Y

如果Button = 1，则

MouseLButtonDown = True

按下鼠标左键。

如果…就会结束

End Sub