在研究类这块,有个小例子对我的帮助特别大。在这里跟大家分享一下。
本例中,主要讲的百米赛跑中的计时。
下面是TimerTask类模块中代码:
Option Explicit Public Event UpdateTime(ByVal dblJump As Double) Public Event ChangeText() Public Sub TimerTask(ByVal Duration As Double) Dim dblStart As Double Dim dblSecond As Double Dim dblSoFar As Double dblStart = Timer 'Timer类 提供以指定的时间间隔执行方法的机制,此类不能被继承。 '返回一个 Single,代表从午夜开始到现在经过的秒数。 'Microsoft Windows中,Timer函数返回一秒的小数部分。 dblSoFar = dblStart Do While Timer < dblStart + Duration '当某一时刻的秒数小于开始时间+停留时间 If Timer - dblSoFar >= 1 Then '设置递增秒数 dblSoFar = dblSoFar + 1 RaiseEvent UpdateTime(Timer - dblStart) '调用事件UpdateTimer更新经过的时间秒数 End If Loop RaiseEvent ChangeText '调用ChangeText事件。 End Sub
在这个类中,定义了UpdateTime和ChangeText两个事件,主要定义了TimerTask过程,该过程是程序的核心,由于是百米赛跑,对时间的要求较高。它精确能够比较精确的取得了时间。
接下来是窗体中,实例化过程和调用过程:
Option Explicit Private WithEvents mText As TimerState '实例化TimerState这个类 Private Sub Command1_Click() Text1.Text = "From Now" Text1.Refresh Text2.Text = "0" Text2.Refresh '此处不刷新,该文本框不会显示0 Call mText.TimerTask(9.84) '调用mText窗体的TimerTask事件过程(其返回值设置为9.84) End Sub Private Sub Form_Load() Command1.Caption = "Click to Start Timer" Text1.Text = "" Text2.Text = "" Label1.Caption = "The fastest 100 meter run took this long:" Set mText = New TimerState End Sub Private Sub mText_ChangeText() Text1.Text = "Until Now" Text2.Text = "9.84" 'Text2.Text = "11" End Sub Private Sub mText_UpdateTime(ByVal dblJump As Double) Text2.Text = Str(Format(dblJump, "0")) DoEvents ' 将控制让给其他程序。 End Sub
执行之后的结果:
看懂上面的类,其他的也没有什么难度,很容易看懂。不过类的思想,事件的定义和调用是我们应该重点掌握的。从简单做起,慢慢理解。