Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long\x0d\\x0d\Type POINTAPI\x0d\ X As Long\x0d\ Y As Long\x0d\End Type\x0d\\x0d\Public Function getmouse_x_y() As POINTAPI\x0d\GetCursorPos getmouse_x_y\x0d\\x0d\End Function\x0d\\x0d\sub test()\x0d\'call getmouse_x_y '调用“获取鼠标坐标值过程”(假定你们给的过程/程序,名叫getmouse_x_y)\x0d\if getmouse_x_yx>100 and getmouse_x_yy>100 then '根据返回当前鼠标的坐标值执行某过程/程序\x0d\\x0d\end sub
1、电脑登录微信账号。
2、电脑登录微信账号后,按Alt+A进行截图。
3、按Alt+A后,进入截图页面,但是不要截图,把鼠标放到左上角POS就为(0,0),POS为position缩写,位置的意思。
4、移动鼠标,POS也就会跟着变化,就可以知道鼠标当前位置的坐标了。
VBA讲的是逻辑,那么从逻辑上来说
单元格的位置可以作为坐标来反馈,故可以使用Cells(SelectionRow, SelectionColumn)来确定当前光标所处的坐标,但这仅仅局限于一个单元格,cells(r,c)分别为行号和列号,通过坐标来判断光标所处位置。同样的,如果用cells(r,c+1)则可以 *** 作光标所处单元格的右数1个单元格的属性,并且在 *** 作右侧单元格时光标依然在当前的单元格上,所以如果下一条命令是cells(r+1,c)则可 *** 作下方相邻单元格,举个例子就是如果cells(r,c)是A1,cells(r,c+1)就是B1,cells(r+1,c)是A2
那么只要让textbox的值 = Cells(SelectionRow, SelectionColumn)Value 即=cells(r,c)的值,就可以让textbox显示出当前光标所处单元格的值。也就是无论你光标移动到哪里,窗体都能显示出光标所处的单元格的值
最后,你提到的“右击”,VBA无法判断左击还是右击,但无论你怎么击都属于“选中 or 激活”这个 *** 作,所以 无论你左击还是右击某个单元格,Cells(SelectionRow, SelectionColumn)都能指出当前激活单元格的坐标。
先是要用事件参数对象e 来传递鼠标当前触发的事件对象,然后通过 SuperMapUtilitygetEvent(e);来获取这个对象。使用SuperMapUtilitygetMouseX( )和SuperMapUtilitygetMouseY( )来获取屏幕的x,y坐标,最后通过mapControlpixelToMapCoord( )来转换成地图地理坐标。 以上的 *** 作写到一个函数A里,通过在前台页面JavaScript里的mapControladd_mouseMove(A);实时触发。
以上就是关于VBA里,如何获取鼠标坐标全部的内容,包括:VBA里,如何获取鼠标坐标、请问我如何能看到我鼠标在桌面的坐标,WIN7系统, 我想知道,鼠标在桌面某个位置的x y 坐标。、VBA中如何获取当前鼠标位置等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)