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://ybzwz.com/article/ddgecoi.html