利用VB实现来回滚动字幕和控件的相对位置

2007-12-16 16:10:15

Dim i As Integer '通用

Private Sub Timer1_Timer() '来回滚动字幕使用TIME控件来实现
  If i = 0 Then  '用变量I来判断左右滚动
     echoshow.Left = echoshow.Left + 10  '改变LABEL控件的位置达到滚动  
     If echoshow.Left >= 800 Then i = 1   '当相对位置达到800时变量改变
 Else                                                        '变量i的改变实现了方向的改变
    echoshow.Left = echoshow.Left - 10 
    If echoshow.Left <= -300 Then i = 0   '-300是为了向做滚动时能用image控件来遮挡一些文字
  End If
End Sub

这里提到了相对位置，我一直以为控件的位置是相对于所在的窗体上的，然而不是，窗体也是容器的一种，任何可能当做容器的控件都能当做参照物，比方我将label控件放置在image控件之上，那么label的位置就是相对image控件的，呵呵！又学了一招，菜鸟学VB！