锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net鼠标左键长按 vb鼠标事件代码

IT技术鼠标

在VB.NET中如何实现键盘上两个键长按！在线等~~长按vb.net鼠标左键长按你可以用计时器来实现啊vb.net鼠标左键长按，写个例子：
Private blCtrl As Boolean = False
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.LControlKey Then blCtrl = True
End Sub
Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.LControlKey Then blCtrl = False
End Sub
然后vb.net鼠标左键长按你可以在计时器里检测blCtrlvb.net鼠标左键长按的状态来确定vb.net鼠标左键长按，不知道你的具体情况是什么样的
总之是用一个布尔变量来记录按键状态，配合计时器来达到你想要的功能
VB.net怎样按住鼠标移动无边框窗体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(); //释放鼠标捕捉
//发送左键点击的消息至该窗体(标题栏)
【vb.net鼠标左键长按 vb鼠标事件代码】SendMessage(Handle, 0xA1, 0x02, 0);
}
}
vb.net如何编写长按鼠标左键的事件？SetCursorPos(old_x,old_y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
SetCursorPos(pt_x,pt_y);
我想用vb.net在MouseMove时检测鼠标是否处于左键是否处于按下的状态 。MouseMove里有个参数是Buttonvb.net鼠标左键长按，1是左键按下vb.net鼠标左键长按，2是右键按下，4是中间按下
求大神指点vb.net 怎么实现鼠标左键按住在移动鼠标达到选中文件的效果呀.我用mouse_even没有效果.看图片背景，我又试了下资源管理器，文件是选中的状态
选中文件和选中文字，背景色是不同的
vb.net判断鼠标左键长按很简单，加入全局变量中有一个变量，mousedown事件中设为1 ， 在mouseup事件中置为0 。这样就能实现你说的功能 。
以下参考
Private Sub 天平左移按钮_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles 天平左移按钮.PreviewMouseDown
a=true
End Sub
Private Sub 天平左移按钮_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)Handles 天平左移按钮.PreviewMouseUp
a=false
End Sub
vb.net鼠标左键长按的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb鼠标事件代码、vb.net鼠标左键长按的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：pg数据库loop循环，pgsql循环语句

    下一篇：php代码调用js函数，php如何调用函数