vb.net鼠标双击打开,用鼠标双击窗口的控制按钮可以打开

VB中怎样模拟鼠标双击操作?

当然可以啊。

创新互联-专业网站定制、快速模板网站建设、高性价比介休网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式介休网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖介休地区。费用合理售后完善,10余年实体公司更值得信赖。

使用API函数mouse_event可以模拟鼠标事件,比如左键单击、双击和右键单击等。这个实例利用此函数产生了十分有趣的效果,无论鼠标处于屏幕的任何位置,每隔一秒程序会使鼠标在那个位置单击或双击一次,这会给我们造成什么样的混乱呢?试一试就知道了。

先在程序中加入如下的声明后,就能引用mouse_event函数:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

其中各个参数的意义如下表所示:

参数 意义

dwFlags Long,下表中标志之一或它们的组合

dx,dy Long,根据MOUSEEVENTF_ABSOLUTE标志,指定x,y方向的绝对位置或相对位置

cButtons Long,没有使用

dwExtraInfo Long,没有使用

dwFlags常数 意义

MOUSEEVENTF_MOVE H1,移动鼠标

MOUSEEVENTF_LEFTDOWN H2,模拟鼠标左键按下

MOUSEEVENTF_LEFTUP H4,模拟鼠标左键抬起

MOUSEEVENTF_RIGHTDOWN H8,模拟鼠标右键按下

MOUSEEVENTF_RIGHTUP H10,模拟鼠标右键抬起

MOUSEEVENTF_MIDDLEDOWN H20,模拟鼠标中键按下

MOUSEEVENTF_MIDDLEUP H40,模拟鼠标中键抬起

MOUSEEVENTF_ABSOLUTE H8000,标示是否采用绝对坐标

程序中我们这样使用mouse_event函数:

1、这里是鼠标左键按下和松开两个事件的组合即一次单击:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

2、模拟鼠标右键单击事件:

mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

3、两次连续的鼠标左键单击事件 构成一次鼠标双击事件:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

如上面所示如果我们要使用两个dwFlags常数的组合时,可以用Or将其连接起来。本例中我们把dx,dy参数都设为0,是指每次模拟事件的位置是鼠标的当前位置,dx,dy在没有使用MOUSEEVENTF_ABSOLUTE标志时是相对于鼠标当前位置的坐标,如果设置为使用绝对坐标,则dx,dy是相对于屏幕的坐标。

然后把这些语句放在Timer控件的Timer事件中,就能实现每一定间隔模拟一次鼠标事件了。

说明:我不是很会VC,所以只给出VB里面调用得方法。抱歉。

跪求大神指点, vb.net 的图片鼠标事件 怎么把鼠标单击双击和鼠标按下鼠标放开 分辨出来呢?

单击双击和按下松开本身就是重合的操作,分不开的,你想达到什么样的操作目的?

VB.net如何让窗体在鼠标点击出显示

没听懂你的意思。如果你是想做一个像右键菜单效果的话,你可以在鼠标点击事件中获取鼠标位置,然后创建你要显示窗体的实例,把窗体的left 和 top 设成鼠标的x,和y 坐标就可以了,具体获取鼠标坐标的方法大至有2种,一种是.net 自带的,你找一找 Screen 这个对象中的属性,能找到获取鼠标坐标的方法,别一种就是用API函数获取鼠标的坐标,GetCursorPos ,该 API 具体使用方法和声明请在网上查找一下。如果有什么问题,可以再联系我。

vb.net如何调用打开外部excel文档

第一步,新建项目。

1

打开vb.net,也就是打开Microsoft visual studio 2010,第一次使用的时候设置为basic语言就行。新建项目--打开excel。

2

新建成功。

END

第二步,添加引用。

1

“项目”--“添加引用”。

2

添加Microsoft Excel 14.0 Object Library。

END

第三步,添加打开文件对话框工具。

1

工具箱--对话框--openfiledialog。

2

添加成功。

END

第四步,添加命令按钮控件。

1

工具箱--公共控件--button。

在控件上右击鼠标,进入属性设置。

2

text属性设置为“打开excel”。

3

name属性也设置为“打开excel”。

END

第五步,编写程序。

1

鼠标双击命令按钮,进入编程界面,编写程序。

END

第六步,运行程序。

1

鼠标单击启动调式图标,程序开始运行。

2

单击打开excel命令按钮,调用打开文件对话框,选择自己要打开的excel文件。

END

第七步,保存程序。

第一次程序运行完,关闭程序,出现关闭项目提示,选择保存。

2

选好自己要保存的位置。


新闻标题:vb.net鼠标双击打开,用鼠标双击窗口的控制按钮可以打开
链接地址:http://bzwzjz.com/article/hscjgi.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都企业网站设计 成都做网站建设公司 企业网站建设 成都网站设计 成都网站建设推广 企业网站设计 自适应网站建设 成都网站建设 移动网站建设 响应式网站建设 成都模版网站建设 手机网站制作 定制级高端网站建设 成都网站设计 外贸网站建设 网站建设方案 响应式网站设计 营销型网站建设 手机网站制作 温江网站设计 成都网站制作 成都网站制作