显示鼠标坐标vb.net的简单介绍

怎样在vb.net中实现点击鼠标就获得并显示该点的坐标？有详细的代码吗？

;

    Private Sub Form2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

        Dim x, y As Integer

        x = e.X : y = e.Y

        Me.Text = "("  x  ","  y  ")"

    End Sub

相关问答

Q1: 在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐标声明

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐标声明

Private Structure POINTAPI '声明坐标变量

Public x As Int32 '声明坐标变量为32位

Public y As Int32 '声明坐标变量为32位

End Structure

'以上是声明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可

Dim P As POINTAPI '声明坐标变量

Dim xx, yy '声明转换要用到的变量

GetCursorPos(P) '获取鼠标在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体的坐标

xx = P.x.ToString '把X转换成能显示到文本框的字符串格式

yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标

End Sub

Q2: 用VB.NET写一个获取鼠标当前屏幕的坐标.

你好 那因为你放在了Label1控件的移动事件了 。

说明：

当前你的代码是在当鼠标经过Label1的MouseMove事件才被激活，其他事件不备激活的。

建议应用函数调用具体方法网上应该有

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString "," System.Windows.Forms.Cursor.Position.Y.ToString

End Sub

上面代码我是做过测试才发的，完全能实现你的要求！！！！！！

Q3: VBA里，如何获取鼠标坐标？

VBA里显示鼠标坐标vb.net，如何获取鼠标坐标？ 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 '调用“获取鼠标坐标值过程”（假定显示鼠标坐标vb.net你们给显示鼠标坐标vb.net的过程/程序，名叫getmouse_x_y）

if getmouse_x_y.x100 and getmouse_x_y.y100 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()

Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

GetCursorPos p

Text1.Text = p.x

Text2.Text = p.y

End Sub

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

int

getX()

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

int

getY()

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

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

js怎么获取鼠标坐标？

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

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

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

获取舞台全局的位置stage.mouseXstage.mouseY 获取在指定对象上的鼠标位置mc.mouseXmc.mouseY

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/Math.PI*Math.atan2(m_y, m_x);

as2.0怎么获取鼠标坐标？

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

实例分别命名为MouseX和MouseY。

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

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

var i:Number = 0;

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

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

onEnterFrame = function()

{

i++;

if (i % (curFrame*times)==0)

{

getMouseX = _xmouse;

getMouseY = _ymouse;

}

_root.MouseX = getMouseX;

_root.MouseY = getMouseY;

}

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

au3怎样获取鼠标坐标

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

给你举个简单的例子

#include Array.au3

Case $Button2 ;按下按钮

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

_ArrayDisplay($a) ;显示数组

如何获取鼠标的坐标vc

GetCursorPos(point);

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

API可以帮你实现！

Q4: vb.net 怎样获取鼠标单击点的坐标

通过窗体的MouseDown事件的e.X和e.Y属性获取。通过e.Location属性获取Point类型的坐标。

下面的代码示例使用 Location 属性跟踪鼠标左键单击，并绘制一系列直线段作为对用户输入的响应。如果隐藏窗体然后重新显示它，此示例不保留已绘制的线段，该代码为简单起见而被省略了。

Dim FirstPoint As Point

Dim HaveFirstPoint As Boolean = False

Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If HaveFirstPoint Then

Dim g As Graphics = Me.CreateGraphics()

g.DrawLine(Pens.Black, FirstPoint, e.Location)

HaveFirstPoint = False

Else

FirstPoint = e.Location

HaveFirstPoint = True

End If

End Sub

显示鼠标坐标vb.net的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、显示鼠标坐标vb.net的信息别忘了在本站进行查找喔。