今天中午做了个滚动字幕的实例，和基础培训百例里的不同的是，要求控件来回滚动，从左到右从右到左的滚动，一开始按着面向对象的编程思想想了想，主要的架子就是控件滚动、一个计时触发的就可以了。

1、

Private Sub Timer1_Timer() Label1.Left = Label1.Left + 2000 If Label1.Left >= Me.Width Then Label1.Left = Me.Width Label1.Left = Label1.Left - 2000 End If If Label1.Left < Me.Width Then label1.Left= Label1.Left+2000 End If

这几行代码并没有实现那种来回滚动效果，而是在第一次向左返回的时候停住了，在那里闪，这就是因为没有对两个If具体判断取舍，没有很好的间隔这两个判断，导致试验失败。

2、

Option Explicit Private Sub Timer1_Timer() '判断label1向右的位置 Label1.Left = Label1.Left + 2000 If Label1.Left > Me.Width Then Label1.Left = Me.Width Timer2.Enabled = True Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer() '判断label1在返回左边时的位置 If Label1.Left <= Me.Width Then Label1.Left = Label1.Left - 2000 If Label1.Left <= 0 Then Label1.Left = Label1.Left + 2000 Timer1.Enabled = True Timer2.Enabled = False End If End If End Sub

这是第二个，用到了两个timer作为开关使用，判断条件互相限制使用。基本达到了预期的效果，试验成功。

3、<高手的代码>

Option Explicit Dim blnFlag As Boolean Private Sub Timer1_Timer() If Label1.Left <= 0 Then blnFlag = True ElseIf Label1.Left >= Me.ScaleWidth - Label1.Width Then blnFlag = False End If If blnFlag = True Then '从左到右 Label1.Left = Label1.Left + 100 Else '到头 Label1.Left = Label1.Left - 100 End If End Sub

总结：

看看人家这代码，最起码从气质上就已经输给了人家，从变量的声明、条件的判断、使用的控件，就可想一个优秀的程序员应该做的要很多，基本素质要很强。

比较就是要反思的，反思后我知道了，程序代码的编写是要有很强的基本功的，难怪米老师说只要看一个人编写的代码如何，就知道这个人的业务素质如何呢，还真是这个样子的。专业的编写 处处显现出“活”气，而自己现在的确是这么的沉闷、老套，终究还是要成长的，量变到质变的过程是不可以缩水的，此刻想起了那句话“不要混生活，小心生活混了你”，真的自己修道路还是要踏踏实实的走下去....