VB点虐 怎样按住鼠标移动无边框窗体

1.在mouse事件中实现

创新互联是一家专业提供北碚企业网站建设,专注与网站制作、成都网站设计、html5、小程序制作等业务。10年已为北碚众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

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);

}

}

VB.NET 2005 如何做部分窗体透明

简单的部分透明比较难做，不过可以换个方式考虑一下。

把本问题转换成在VB.NET 2005环境下创建不规则窗体（＝普通窗体 － 透明部分）问题，解决方法就很多了，网上也有许多例子。如 章立民 的书里就详细讲过。

大致思路如下：

1。将backgroundimage设成一个位图（点阵图）

2.将Transparaencykey设成位图的背景颜色（位图最取背景单纯，单纯部分将成为透明部分）

3.如需要可以将formborderstyle设为none，会移除标题栏，并需要手动编写窗体移动、关闭等动作代码，

VB.NET怎么做永远停靠在屏幕上的东西

本质是一个不规则形状的窗体，把窗体的 TopMost 属性设为 True 即可。

vb点虐 的鼠标有效点击区域问题 在窗体上加载一副png图片(上面有全透明区

因为想做一个类似虚拟人格的桌面精灵，要使得窗体背景是完全透明的，运行后只显示png的图形。效果稍微有点像不规则窗体。在网上看了很多大神的代码，觉得好复杂~要么做不规则窗体，要么引用什么什么函数之类的。。。本人新手，可受不起那么长篇

分享文章：vb点虐 不规则窗体 vb窗体不可改变大小
网站网址：http://kswjz.com/article/ddgecoi.html