求一段能获取鼠标点击位置的(X,Y)坐标的完整代码,包括头文件。我用的是VS2010。本人新手最好有注释。

求一段能获取鼠标点击位置的(X,Y)坐标的完整代码,包括头文件。我用的是VS2010。本人新手最好有注释。,第1张

private void Form1_MouseMove(object sender, MouseEventArgs e)

      {

          Point p = ControlMousePosition;

          Point p2 = thisPointToClient(p);

          label1Text = "屏幕坐标: " + pXToString() + ":" + pYToString()+ "   ";

          label1Text += "工作区坐标: " + p2XToString() + ":" + pYToString();

      }

     

      private void Form1_Click(object sender, EventArgs e)

      {

          Point p = ControlMousePosition;

          Point p2 = thisPointToClient(p);

          string str = "屏幕坐标: " + pXToString() + ":" + pYToString() + "  \n";

          str += "工作区坐标: " + p2XToString() + ":" + pYToString();

          MessageBoxShow(str);

      }

----------------------------------------------------------------------------------------------------------------------------

解决问题请尽快采纳。头文件不需额外添加,默认的就行。

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

版本 2

支持库 EdirectX

子程序 __启动窗口_创建完毕

输入设备1选择输入设备 (真, 假, 假)

输入设备1置刷新时间 (50)

输入设备1初始化 (0)

子程序 _输入设备1_鼠标按键被改变

参数 键值, 整数型

参数 键状态, 整数型

局部变量 x, 整数型

局部变量 y, 整数型

x = 取鼠标水平位置 ()

y = 取鼠标垂直位置 ()

_启动窗口标题 = “X坐标” + 到文本 (x) + “  ” + “X坐标” + 到文本 (y)

不懂加QQ344799981

我写了一个applet小程序,不知道是不是你要的~

package test1;

import javaapplet;

import javaawt;

import javaawteventMouseEvent;

import javaawteventMouseListener;

public class Check2 extends Applet implements MouseListener {

TextField text1;

public void init() {

text1 = new TextField(20);

add(text1);

addMouseListener(this);

}

public void mouseClicked(MouseEvent e) {

text1setText("X:"+egetX()+" Y:"+egetY());

}

public void mousePressed(MouseEvent e) {

throw new UnsupportedOperationException("Not supported yet");

}

public void mouseReleased(MouseEvent e) {

throw new UnsupportedOperationException("Not supported yet");

}

public void mouseEntered(MouseEvent e) {

throw new UnsupportedOperationException("Not supported yet");

}

public void mouseExited(MouseEvent e) {

throw new UnsupportedOperationException("Not supported yet");

}

}

以上就是关于求一段能获取鼠标点击位置的(X,Y)坐标的完整代码,包括头文件。我用的是VS2010。本人新手最好有注释。全部的内容,包括:求一段能获取鼠标点击位置的(X,Y)坐标的完整代码,包括头文件。我用的是VS2010。本人新手最好有注释。、VBA里,如何获取鼠标坐标简单点、api 易语言 获取鼠标点击时的坐标等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/10127663.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-05
下一篇2023-05-05

发表评论

登录后才能评论

评论列表(0条)

    保存