大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb点虐 鼠标双击 vb单击与双击窗体

vb点虐 如何调用打开外部excel文档

第一步,新建项目。

创新互联建站是专业的顺德网站建设公司,顺德接单;提供成都做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行顺德网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

1

打开vb点虐 ,也就是打开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模拟鼠标问题

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

Dim postion1 As New Point

mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)

'按绝对位置移动鼠标

'在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元,

'当前所用显示屏分辨率为1366*768

'所以要进行如上转换

mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下

mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起

msdn上有 mouse_event 的详解,大致使用如上

VB.NET mouse_event 双击对广联达不起作用,但是excel可以。

SetCursorPos(xr,yr)

sleep (1000) '移动鼠标后加个延时 先加大一点的没关系  测试有效后再缩短延时时间

其他行的sleep 也如此 再者你的leftdown 和 up 常量有先赋值吧


网页名称:vb点虐 鼠标双击 vb单击与双击窗体
网页地址:http://dzwzjz.com/article/ddgissd.html
在线咨询
服务热线
服务热线:028-86922220
TOP