Perl/TkFAQ-11.5.怎样调整画布中线条的位置？-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

Perl/TkFAQ-11.5.怎样调整画布中线条的位置？

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　原文：

　　11.5. How do I redraw a line on a Canvas?

　　By calling the ->coord method on the item as in the following example: #!/usr/bin/perl use Tk; $m = MainWindow->new; $c = $m -> Canvas; $i = $c -> create(’line’, 0,0 => 50,50 ); $c -> pack; $b = $m -> Button(’-text’ => ’extend’, ’-command’ => sub{push_it($c,$i)}, )->pack; MainLoop; sub push_it { my ($canvas, $line) = @_; $canvas -> coords($line, 0,0 => 100,100 ); }

　　Thanks to Christopher Dunn and Harry Bochner for providing this question and answer.

　　译文：

　　11.5. 怎样调整画布中线条的位置？

　　这能够通过对这个元件（line）调用->coord方法来实现，例如：

　　#!/usr/bin/perl

　　use Tk;

　　$m = MainWindow->new;

　　$c = $m -> Canvas;

　　$i = $c -> create(’line’, 0,0 => 50,50 );

　　$c -> pack;

　　$m -> Button(’-text’ => ’extend’,

　　’-command’ => sub{push_it($c,$i)},

　　)->pack;

　　MainLoop;

　　sub push_it {

　　my ($canvas, $line) = @_;

　　$canvas -> coords($line, 0,0 => 100,100 );

　　}

　　感谢Christopher Dunn和Harry Bochner提供了这个问题及答案！

　　（译者注：其实对于线条的调整不但限于位置，其他的各种属性都是能够的??使用itemconfigure方法来实现！有兴趣的朋友能够试试在上面的例子中的子程式的最后加上这样一行来看看效果怎样：$canvas->itemconfigure($line,-width=>3,-fill= >’red’,-arrow=>’both’);。另外，这个方法可是对画布中各种元件都有用的哟！）

喜欢本文，那就收藏到：