Tk可不可以在固定位置做循環(huán)顯示數(shù)字或文字效果

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. }
    

復(fù)制代碼

slash001

就是這個，謝謝！�。�！