界面窗口标题滚动效果

落幕

有人发了个标签滚动效果，我就上个窗口标题滚动效果吧，（中文）

1. function btgd()
   
2.     var c1,ff,t1
   
3.     句柄=窗口.自身句柄()   
   
4.     ff=窗口.得到标题(句柄)
   
5.     c1=字符串.长度(ff)
   
6.     while(true)
   
7.         for(i=0;i<c1+1;i++)            
   
8.             t1=字符串.截取(ff,i,c1)
   
9.             窗口.设置标题(句柄,t1)  
   
10.             help.sleep(300)
    
11.             if(i==c1)
    
12.                 i=0
    
13.             endif            
    
14.         endfor   
    
15.     endwhile
    
16. endfunction

复制代码