
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 易语言 获取鼠标点击时的坐标等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)