前面已經(jīng)接觸到類的變量、屬性以及枚舉，但我們?cè)鯓硬拍芨玫睦盟鼈兡兀?BR> 顯然，子過程就是其中的一種方式，它幾乎出現(xiàn)所有的Visual Basic程序中，所以這里來舉例說明。
在CDog類中添加下列代碼：
Public Sub Bark()
MsgBox "Woof! Woof!"
End Sub
這里的子過程是最常見的，我們可以簡(jiǎn)單地使用MyDog.Bark來調(diào)用它。
下面來試一試：
將表單Form1的Command按鈕的代碼改成：
Dim MyDog As CDog
Set MyDog = New CDog
MyDog.Name = "Billy"
MyDog.Bark
Set MyDog = Nothing
需要說明的是，在鍵入"MyDog."會(huì)彈出相應(yīng)的列表，各列表項(xiàng)前面都有不同顏色的小圖標(biāo)區(qū)分不同的類型。例如Bark子過程項(xiàng)前面的是黃綠色的，屬性是灰色和藍(lán)色的，這樣能幫助我們識(shí)別Bark是MyDog對(duì)象的一個(gè)方法。
按F5運(yùn)行并測(cè)試。
事實(shí)上，除了子過程外，我們也可以在代碼中添加函數(shù)。這里我們就不舉例了，你可以自己嘗試一下。因?yàn)楹瘮?shù)和一般子過程除了能在一個(gè)類中外，其工作也是相同的。但不要忘記，所有子過程和函數(shù)都可以有自己的參數(shù)。
現(xiàn)在，讓我們?cè)O(shè)想一下，在類中有一個(gè)Sleep方法。當(dāng)我們想要cat睡覺或dog打盹時(shí)，每次都得調(diào)用這個(gè)方法。
但是，我們?cè)趺粗肋@些小東西什么時(shí)候醒來？這是一個(gè)非常有趣的問題，其答案是使用事件(event)。
當(dāng)我們?cè)谖谋揪庉嬁蛑墟I入字符時(shí)就會(huì)產(chǎn)生Change事件，而當(dāng)我們單擊命令按鈕時(shí)就會(huì)產(chǎn)生Click事件。同樣，想知道這些小東西什么時(shí)候醒來，就需使用下一節(jié)所著重討論的Awake事件。
在CDog類中添加下列代碼：
Public Sub Bark()
MsgBox "Woof! Woof!"
End Sub
這里的子過程是最常見的，我們可以簡(jiǎn)單地使用MyDog.Bark來調(diào)用它。
下面來試一試：
將表單Form1的Command按鈕的代碼改成：
Dim MyDog As CDog
Set MyDog = New CDog
MyDog.Name = "Billy"
MyDog.Bark
Set MyDog = Nothing
需要說明的是，在鍵入"MyDog."會(huì)彈出相應(yīng)的列表，各列表項(xiàng)前面都有不同顏色的小圖標(biāo)區(qū)分不同的類型。例如Bark子過程項(xiàng)前面的是黃綠色的，屬性是灰色和藍(lán)色的，這樣能幫助我們識(shí)別Bark是MyDog對(duì)象的一個(gè)方法。
按F5運(yùn)行并測(cè)試。
事實(shí)上，除了子過程外，我們也可以在代碼中添加函數(shù)。這里我們就不舉例了，你可以自己嘗試一下。因?yàn)楹瘮?shù)和一般子過程除了能在一個(gè)類中外，其工作也是相同的。但不要忘記，所有子過程和函數(shù)都可以有自己的參數(shù)。
現(xiàn)在，讓我們?cè)O(shè)想一下，在類中有一個(gè)Sleep方法。當(dāng)我們想要cat睡覺或dog打盹時(shí)，每次都得調(diào)用這個(gè)方法。
但是，我們?cè)趺粗肋@些小東西什么時(shí)候醒來？這是一個(gè)非常有趣的問題，其答案是使用事件(event)。
當(dāng)我們?cè)谖谋揪庉嬁蛑墟I入字符時(shí)就會(huì)產(chǎn)生Change事件，而當(dāng)我們單擊命令按鈕時(shí)就會(huì)產(chǎn)生Click事件。同樣，想知道這些小東西什么時(shí)候醒來，就需使用下一節(jié)所著重討論的Awake事件。