基礎之更多屬

但我們需要的卻不是這個框架。代碼中，\"Variant\"變量類型是能接收和處理任何類型數據。在我們定義的CDog類中，最后的屬性是Age，它只能接受整型。但現在需要屬性能接收CoatType列表中的數據類型，因此需要作下列修改：

將產生的代碼中所有的\"Variant\"改成\"CoatType\"；

然后，添加一些實際處理屬性的代碼。

在屬性的Get過程中，添加下列代碼：

Coat = udtCoat

在屬性的Let過程中，添加下列代碼：

udtCoat = vNewValue

切換到Form1；

將Command按鈕的代碼改為：

Dim MyDog As CDog

Set MyDog = New CDog

= \"Billy\"

現在開始鍵入：at =

奇跡出現了，當你敲下\"=\"鍵時，出現一個含有可能選項的列表，從中我們可以選擇一個。

完成代碼的鍵入：at = ShortCrewCut

下一步，我們將獲取Coat屬性的值。假如現在就來簡單地在消息對話框中顯示屬性值，則只需返回選擇項的值就可以了。例如，若選擇了ShortCrewCut，其屬性一定返回2。不信，可以試一試！

但這里采用另外一種方法，它是用If-Then語句判斷Coat：

在Command按鈕已有的代碼后面添加下列代碼：

If at = BigAndShaggy Then

MsgBox \"You have a big, bouncy, bushy pup!\"

ElseIf at = PoodleStyleAfro Then

MsgBox \"Your pooch is pretty, petit and pooch-like!\"

ElseIf at = ShortCrewCut Then

MsgBox \"Your dog is full of oomph, oomph and more oomph!\"

ElseIf at = Unknown Then

MsgBox \"I have no idea about your dog. I don\'t think \" _

歐洲股市周四收盤上漲1.1% \"you do either!\"

End If

這里的代碼只是簡單判斷Coat屬性值，并顯示相應的消息對話框。當然，這里也可以使用\"Select Case\"語句。

最后，我們添加最后一條語句來釋放計算機內存：

在Command按鈕已有的代碼后面添加下列代碼：

Set MyDog = Nothing

按F5運行程序，并單擊Command按鈕測試一下。

結果怎樣？

查看本文來源