Tk可不可以在固定位置做循环显示数字或文字效果

slash001

就象命令行下
for (my $i=0;$i<10000000;$i++)
{
     print "$i\r";
}
效果类似

epee

看看这段代码对你有没有用处

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use Tk;
   
5. $top = MainWindow->;new();
   
6. $l=$top->;Label();
   
7. $i=0;
   
8. $l->;after(0,\&c);
   
9. $l->;pack();
   
10. MainLoop();
    
11. 
    
12. sub c{
    
13.     return if $i>;10;
    
14.     ++$i;
    
15.     $l->;configure(text=>;$i);   
    
16.     $l->;after(300,\&c);
    
17. }
    

复制代码

slash001

就是这个，谢谢！！！！