在上一篇中我們建立了一個極為簡單的pigsy類，在這個類中我們定義了三個屬性，一個方法。在談到類對象在初始化的時候，我們特意的指出：某些屬性可以通過自動初始化來設置，這樣也會省去你一些麻煩。這就是本篇要談的，類對象的初始化問題。

我們再來回顧一下類的接口技術：類為基于它所創建的所有對象定義了屬性（Properties)，方法(Metho)，事件(Events)，這些屬性、方法和事件也稱為類的接口(Interface)?？梢?#xff0c;類的接口包含了屬性，方法和事件這三塊內容，這里的事件是指我們在類中定義的事件。其實，類除了我們外加給它的自定義事件以外，它與生俱來的就有兩個事件：Class_Initialize（實例化事件）和Class_Terminate（銷毀事件）。現在談實例化事件。

一 什么是Class_Initialize（實例化事件）實例化事件，或者叫初始化事件。顧名思義，是在類實例化的時候自動觸發。

類什么時候被實例化呢？就在執行

set objpigsy = New pigsy

這條語句的時候。如果你在初始化事件中寫入一些代碼，這些代碼就會自動執行。類的初始化事件是我們初始化類屬性的最佳場合。

我們在pigsy類代碼模塊中，代碼窗格左上方的對象下拉框里面選擇Class，右上方的事件下拉框中選擇Initialize，類的實例化事件的響應子程序就自動創建好了。

Class_Initalize()這個事件響應子程序，與大家比較熟悉的Form_Load()事件響應子程序沒有什么不同。只要這個事件發生了，那么就會自動執行其中的代碼?，F在我們就可以把場合（Situation）這個屬性的初始化放在Class_Initalize()中了。

Public Name As String ’屬性姓名

Public Gender As String’屬性性別

Public Situation As String ’屬性場合

’類的方法

Public Sub Speak()

Select Case Situation

Case "師父"

MsgBox "八戒"

Case "師兄"

MsgBox "八戒"

Case "非正式"

MsgBox "呆子"

Case "師弟"

MsgBox "二師兄"

Case Else

MsgBox "天蓬元帥"

End Select

End Sub

考慮到大師兄和二師兄的戲份較多，所以我們把初始化的Situation 設置為 "師兄"

Private Sub Class_Initialize()

Situation = "師兄"

End Sub

既然場合（Situation）屬性已經被初始化了，標準模塊中就不用再初始化該屬性了。

Sub MYNZ_30()

Dim objpigsy As pigsy

Set objpigsy = New pigsy

objpigsy.Name = "豬悟能"

objpigsy.Gender = "男"

objpigsy.Speak

End Sub

代碼解析：略

代碼截圖：

我們重新執行一遍MYNZ()子程序，會得到同樣的結果。

我們再次對代碼進行分析，二師兄是男是女，是一個屬性值，在原理上是不會變了，當然他可以變化，但無論怎么變，終究的性別是不會改變的。一般情況下我們的二師兄也懶得去做這種改變。我們來看看我們的類，你會發現，性別初始化以后，我們很容易的就能將它修改了。例如我們在MYNZ程序中，可以隨意的添加一行代碼：objPigsy.Gender = “女”，這下子，二師兄就會變性了。

在類中，我們有沒有辦法阻止類的使用者做這樣操作呢？答案當然是肯定的，下一篇將給大家介紹一種更加健壯的定義屬性的方法。

今日內容回向：

1 類的自帶事件有什么？

2 如何設置類對象的初始化屬性？

在取代OFFICE新的辦公軟件沒有到來之前，誰能在數據處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！學習VBA是個過程，如太白詩云：眾鳥高飛盡，孤云獨去閑。相看兩不厭，只有敬亭山。

“水善利萬物而不爭”，綿綿密密，微則無聲，巨則洶涌。學習亦如此，知道什么是自己所需要的，不要蜷縮在一小塊自認為天堂的世界里，待到暮年時再去做自欺欺人的言論。要努力提高自己，有一顆充滿生機的心靈，把握現在，這才是進取。越是有意義的事情，困難會越多。愿力決定始終，智慧決定成敗。不管遇到什么，都是風景。看淡紛爭，看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學習，積累福報。而不是天天混日子，也不是天天熬日子。在后疫情更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。學習時微而無聲，利用時則巨則洶涌。

VBA是利用Office實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現在推出了五部VBA教程。第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋絕大多數的VBA知識點；第二：VBA數據庫解決方案，是數據處理的專業利器，詳細的介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作。第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。字典是VBA代碼水平提高的手段，值得深入的學習。第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。第五：VBA中類的解讀和利用，這是一部高級教程，對于自己理論的提高很有益處。上述教程可以根據1,3,2,5或者是4,3,2,5的順序逐漸深入的學習和利用。

最后將一闕詞送給致力于VBA學習的朋友：浮云掠過，暗語無聲，唯有清風，驚了夢中啼鶯。望星，疏移北斗，奈將往事雁同行。阡陌人，昏燈明暗，忍顧長亭，多少VBA人，暗夜中，悄聲尋夢，盼卻天明，怎無憑！

分享成果，隨喜正能量

總結

以上是生活随笔為你收集整理的android 怎么初始化下拉框_第30讲：“二师兄”的成长历程之二,类属性的初始化...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。