VB.net怎样按住鼠标移动无边框窗体

Question

VB.net怎样按住鼠标移动无边框窗体我用的是Visual Studio 2015，和VB6.0不一样，所以我上网查查不到合适的代码，求指教！！！

Answer 1

1.在mouse事件中实现
2.调用windows API

实现方式为：
1.在mouse事件中实现

[csharp] view plain copy
Point mouseOff;//鼠标移动位置变量
bool leftFlag;//标签是否为左键

private void groupControl1_MouseUp(object sender, MouseEventArgs e)
{
if (leftFlag)
{
leftFlag = false;//释放鼠标后标注为false;
}
}

private void groupControl1_MouseMove(object sender, MouseEventArgs e)
{
if (leftFlag)
{
Point mouseSet = Control.MousePosition;
mouseSet.Offset(mouseOff.X, mouseOff.Y); //设置移动后的位置
Location = mouseSet;
}
}

private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{

if (e.Button == MouseButtons.Left)
{
mouseOff = new Point(-e.X, -e.Y); //得到变量的值
leftFlag = true; //点击左键按下时标注为true;
}
}
private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{

if (e.Button == MouseButtons.Left)
{
mouseOff = new Point(-e.X, -e.Y); //得到变量的值
leftFlag = true; //点击左键按下时标注为true;
}
}

2.调用windows API

调用前需要添加using System.Runtime.InteropServices;

[csharp] view plain copy
[DllImport("user32.dll")]
public static extern bool ReleaseCapture();
[DllImport("user32.dll")]
public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);
private void groupControl1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
ReleaseCapture(); //释放鼠标捕捉
//发送左键点击的消息至该窗体(标题栏)
SendMessage(Handle, 0xA1, 0x02, 0);
}

}

Answer 2

http://stackoverflow.com/questions/17392088/allow-a-user-to-move-a-borderless-window追问

这是？

追答

就是移动窗口的代码。

追问

是VB14.0吗

追答

不管哪个版本用法都一样。

追问

谢谢，我试试

本回答被提问者采纳