genesis2000 中用PERL 分别取得鼠标X,Y坐标值，要怎么样才能做到？

发布网友发布时间：2022-05-06 08:33

共4个回答

热心网友时间：2023-10-08 20:01

画图后

h=imrect;
图中就会出现可以拖动以及改变大小的矩形框
选好位置后
pos=getPosition(h)；

pos有四个值，分别是矩形框的左下角点的坐标 x y 和框的宽度和高度追问我知道 CSH中可以这样：
MOUSE r "AAAA"
set MOUSEANS = ($MOUSEANS)
set local_x1 = $MOUSEANS[1]
set local_y1 = $MOUSEANS[2]
PERL中可以这样：
$f -> MOUSE("p AAAA ");
@a=$f->{READANS};
坐标在@a中，但就不知道怎么样才能分别提取出来另做它用。。。

热心网友时间：2023-10-08 20:02

my @MOUSEANS = split(/ /, $f->{MOUSEANS});
这样你的x y坐标就是 $MOUSEANS[0] $MOUSEANS[1]

热心网友时间：2023-10-08 20:02

首先你这个数组中返回的值就是空值

热心网友时间：2023-10-08 20:03

x1=$a[0];
y1=$a[1];
x2=$a[2];
y2=$a[3];追问这个方法我试过，没用。好像是坐标值都算成一个元素了，分拆不了.......