VB怎么获取当前活动窗口的坐标

'在窗体上画一个Timer控件,设置其Interval属性为100

'把代码复制到Form1的代码窗口中

'获得活动窗口句柄的API

Private Declare Function GetForegroundWindow Lib "user32" () As Long

'获得窗口区域结构的API

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, wndRect As RECT) As Long

Private Type RECT '自定义区域结构类型

x As Long

y As Long

Right As Long

Bottom As Long

End Type

Dim ActiveWindowRECT As RECT '用於保存活动窗口区域的结构

Dim ActiveWindowHwnd As Long '活动窗口的句柄

Private Sub Timer1_Timer()

ActiveWindowHwnd = GetForegroundWindow '获得活动窗口的句柄

GetWindowRect ActiveWindowHwnd, ActiveWindowRECT '获得活动窗口的区域并保存在 ActiveWindowRECT 变量中

'在窗口上输出信息

MeCls

Print "活动窗口的坐标是(" & ActiveWindowRECTx & "," & ActiveWindowRECTy & ")"

End Sub

jquery获取当前元素的坐标

1，获取对象

var obj = $("#id号"); 或 var obj = $(this);

实例中我获取的对象是d出窗口按钮，这样创建的新窗口就会根椐按钮的位置进行调整，实例中将创建的新窗口显示的按钮的右下角。

2，获取对象元素的位置(offset()方法)

var offset = objoffset();

获取对象元素的位置，分别是元素的top和left，调用方法是：offsetleft和offsettop，可知当前对象的左部和顶部位置。

3，获取对象元素的宽度(width()方法)

var right = offsetleft+objwidth();

实例中是获取对象的右下角位置，创建新窗口的左部位置。

4，获取对象元素的高度(height()方法)

var down = offsettop+objheight();

实例中是获取对象的右下角位置，创建新窗口的顶部位置。

Point

p

=

CursorPosition;

pX;

//当前X坐标

pY;

//当前Y坐标

以上代码在任意地方执行，就可取得鼠标在屏幕上的X

Y坐标。

命名空间　using SystemRuntimeInteropServices;

导入库　[DllImport("user32dll",EntryPoint = "GetCursorPos")]

函数原型　public static extern bool GetCursorPos(ref LPPOINT lpPoint);

参数说明　ref LPPOINT lpPoint，LPPOINT为结构体类型，该结构接收光标的屏幕坐标

函数原型：BOOL SetCursorPos（int X，int Y）；

通过这个就可以获取跟设置鼠标的左边（相对屏幕的 相对窗体的话 就要得知窗体的左上角坐标 通过计算 得到鼠标相对窗体左上角的位置）

给地图加rightclick事件，存右击时的坐标

mapaddEventListener("rightclick", function(e){

rightclickPoint = {lng:epointlng,lat:epointlat};

});

然后点击菜单项的时候，在callback:function(){

alert(JSONstringify(rightclickPoint));

}

see

VBA里，如何获取鼠标坐标？ Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Type POINTAPI

X As Long

Y As Long

End Type

Public Function getmouse_x_y() As POINTAPI

GetCursorPos getmouse_x_y

End Function

sub test()

'call getmouse_x_y '调用“获取鼠标坐标值过程”（假定你们给的过程/程序，名叫getmouse_x_y）

if getmouse_x_yx>100 and getmouse_x_yy>100 then …… '根据返回当前鼠标的坐标值执行某过程/程序

……

end sub

vb 获取鼠标坐标

建一个Timer1,Text1,Text2

代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim p As POINTAPI

Private Sub Form_Load()

Timer1Interval = 10

End Sub

Private Sub Timer1_Timer()

GetCursorPos p

Text1Text = px

Text2Text = py

End Sub

如何获取在控件Canvas里面的鼠标坐标

int

getX()

返回组件原点的当前 x 坐标。

int

getY()

返回组件原点的当前 y 坐标。

这是JComponent 类提供的方法 javaswing 包中的所有控件都继承了这个类

js怎么获取鼠标坐标？

亲，这个有兼容性问题，用clientX代替pageX,clientY代替pageY就可以了 <script> windowonload=function() { documentonmousemove=function(ev) { var oEvent=ev||event; alert("x坐标是:"+oEventclientX+",y坐标是:"+oEventclientY); } }</script>

如何在AS3的as文件里面获取鼠标坐标

通过显示对象的mouseX和mouseY获取

获取舞台全局的位置stagemouseXstagemouseY 获取在指定对象上的鼠标位置mcmouseXmcmouseY

Flash Mx 2004 怎么获取鼠标坐标

变量1=_root_xmouse;

变量2=_root_ymouse;

MC的角度跟着鼠标~代码

m_x =_root_xmouse-mc_x;

m_y =_root_ymouse-mc_y;

mc_rotation= PI=180/MathPIMathatan2(m_y, m_x);

as20怎么获取鼠标坐标？

在舞台上先设两个文本，分别用来获取鼠标坐标；

实例分别命名为MouseX和MouseY。

var curFrame:Number = 24;输入这个影片的帧频，这里默认为24，你需要自己设置

var times:Number = 05;获取的间隔，这里默认为05秒，按您说的

var i:Number = 0;

var getMouseX:Number;定义存放x坐标的变量

var getMouseY:Number;定义存放y坐标的变量

onEnterFrame = function()

{

i++;

if (i % (curFrametimes)==0)

{

getMouseX = _xmouse;

getMouseY = _ymouse;

}

_rootMouseX = getMouseX;

_rootMouseY = getMouseY;

}

随着鼠标的移动，舞台上的两个文本的值就变化了。

au3怎样获取鼠标坐标

你需要用到MouseGetPos() 函数，这个函数的作用是返回当前鼠标的坐标，坐标是一个数组

给你举个简单的例子

#include <Arrayau3>

Case $Button2 ;按下按钮

$a=MouseGetPos() ;返回当前鼠标位置的坐标，$a的坐标是一个数组

_ArrayDisplay($a) ;显示数组

如何获取鼠标的坐标vc

GetCursorPos(&point);

VB如何获取实时鼠标坐标xy并输出到文本框？

API可以帮你实现！

判断位置逻辑，参考博客： >

以上就是关于VB怎么获取当前活动窗口的坐标全部的内容，包括:VB怎么获取当前活动窗口的坐标、用jquery如何实时获取对象的坐标、如何获得当前鼠标的屏幕坐标(c#)等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！