Ev('x') 做甚 ?

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

1^# abmyself 发表于 2005-04-23 14:39

Ev('x') 做甚 ?

Ev('x') 做甚 ?
[CCB]10[/CCB]
看到MPTK中

$canvas -> bind("<Motion>",[\&size_item,[b]Ev('x'),Ev('y')[/b]]);

当鼠标掠过canvas时,调动subroutine &size_item, 只是同时要这后面的两Ev做甚...?

jester

UID: 7886
帖子: 37
积分: 85
在线时间: 2 小时

2^# jester 发表于 2005-04-23 15:11

把当前鼠标的屏...
把当前鼠标的屏幕坐标（x，y）传递给size_item作为参数

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

3^# abmyself 发表于 2005-04-23 16:10

呵呵,自问自答了~
其实也是刚试出来的.

根据以下例程中返回的参数例表@_可看出,Ev('x')和Ev('y')记下鼠标左键所击处,
然后通过@_返回给$x,$y,通过$canv->canvasx($x),$canv->canvasy($y)返回坐标了,print给你看了.

$canvas->CanvasBind("<Button-1>", [ \&print_xy, Ev('x'), Ev('y') ]);
sub print_xy {
my ($canv, $x, $y) = @_;
print "(x,y) = ", $canv->canvasx($x), ", ", $canv->canvasy($y), "\n";
}

booboo

UID: 46324
帖子: 121
积分: 278
在线时间: 20 小时

4^# booboo 发表于 2005-04-23 19:44

[color=ff00ff]...
[color=ff00ff]good!~赞一个！[/color]
[color=#800000]不过不要在不同版块发同样的帖子！[/color]

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

5^# abmyself 发表于 2005-04-24 22:36

[quote]回复给 ...
[quote]回复给 booboo : [color=ff00ff]......[/quote]

我先是发在高级开发+图形...那边的的,想了想,这虽是图形开发那边的问题,但多发一处,得到的答复几率就越大.
不好意思,....

要感谢Jester!谢谢你

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

6^# abmyself 发表于 2005-04-25 13:33

[quote]回复给 ...
[quote]回复给 jester : 把当前鼠标的屏......[/quote]

谢谢你,Jester,[CCB]1[/CCB]
mptk第九章你还没翻译完呀~~~
[暂注3]Jester：这个功能我还没有用过，先这么写着吧此处的Jester是你吧~!!![CCB]2[/CCB]