对一段VB代码的总结~

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

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

总结：

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

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