我想实现TEXT框中的文本循环滚动,请高手指点!

我想实现TEXT框中的文本循环滚动,请高手指点!  
  我用了如下方法:  
  Private   Sub   Timer1_Timer()  
  iStep   =   20  
  Label1.Top   =   Label1.Top   +   iStep  
  Label2.Top   =   Label2.Top   -   iStep  
  End   Sub  
  可惜只能滚动一下,不能循环滚动!  
  请高手指点!  
  谢谢了 问题点数：20、回复次数：4Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 17:26:11 得分 7

Private   Sub   Timer1_Timer()  
          iStep   =   20  
          Label1.Top   =   Label1.Top   +   iStep  
          Label2.Top   =   Label2.Top   -   iStep  
          If   Label1.Top   >   Label1.Container.Height   Then   Label1.Top   =   0  
          If   Label2.Top   <   0   Then   Label2.Top   =   Label2.Container.Height  
  End   Sub  
  Top

2 楼benyfeifei（狒狒）回复于 2006-03-30 17:29:34 得分 7

在窗体增加一个PictureBox,在PictureBox增加一个支持多行的文本框，文本框设置成无边框形式。  
   
  Const   SCROLLSPEED=20        
  Private   Sub   Timer1_Timer()  
   
  If   Text1.Top+Text1.Height   <=0   then  
      Tex1.Top=PictureBox1.ScaleHeight  
  Else  
   
    Text1.Top=Text1.Top-SCROLLSPEED  
  End   If  
     
  End   Sub  
  Top

3 楼a_yin（渡盡劫波兄弟在，相逢一笑泯恩仇！）回复于 2006-03-30 17:50:29 得分 0

faysky2():  
  小弟斗胆问一句:  
  左右循环移动该是怎样的?Top

4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 20:03:56 得分 6

一样的：  
   
  Private   Sub   Timer1_Timer()  
          Dim   iStep   As   Long  
          iStep   =   20  
          Label1.Left   =   Label1.Left   +   iStep  
          Label2.Left   =   Label2.Left   -   iStep  
          If   Label1.Left   >   Label1.Container.Width   Then   Label1.Left   =   -Label1.Width  
          If   Label2.Left   <   -Label2.Width   Then   Label2.Left   =   Label2.Container.Width  
  End   SubTop

相关问题

• 文本
• top
• istep
• label
• 请高手指点
• timer
• 想实现text框
• 中的文本循环滚动
• private sub
• container

• 帖主：a_yin
• faysky2
• benyfeifei
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载