vb点虐 不规则窗体 vb窗体不可改变大小
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://mswzjz.cn/article/ddgecoi.html