Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Command3_Click()
End

End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If

End Sub

你這是什么意思?

还好 继续加油

Label1.Left = Label1.Left + 50
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If


如果只给Left赋一次值，怎么做？

原來是做一個滾動的來玩，我還以為有什么錯呢!

left賦一次值基本不可能因為要每次相加才會往前推進的

这样不是更简单吗？而且不一闪一闪的显示。如过用Label1 就会有一闪一闪的，
把TEXT1的Borderstyle设置为0-None
Timer1 的 Interval是1

附件是源码


[[it] 本帖最后由 yujimin 于 2008-9-12 13:18 编辑 [/it]]

每次timer事件里……

好像是，你有高招，發表一下