有一張Form, 如圖
代碼如下:
Option Explicit
Private m_cln1 As Collection
Private m_cln2 As New Collection
'Set Nothing
Private Sub Command4_Click()
Set m_cln1 = Nothing
Set m_cln2 = Nothing
End Sub
'Check Cln1
Private Sub Command5_Click()
If m_cln1 Is Nothing Then
MsgBox ("Object is Nothing!")
Else
MsgBox ("Object is Not Nothing!")
End If
End Sub
'Check Cln2
Private Sub Command6_Click()
If m_cln2 Is Nothing Then
MsgBox ("Object is Nothing!")
Else
MsgBox ("Object is Not Nothing!")
m_cln2.Add ("Test")
MsgBox (m_cln2.Count)
End If
End Sub
'Init
Private Sub Form_Load()
Set m_cln1 = Nothing
Set m_cln2 = Nothing
End Sub
我們先點擊一下command4,把兩個Collection都set nothing。
這時,我們點擊Command5會出現以下對話框(圖2):
這裡理所當然的,因為我們從一開始就沒有定義過m_cln1的實例。
但如果我們點擊command6時,會出現以下地話框:
為什麼會這樣呢?我們明明把兩個collection都設為Nothing,為什麼m_Cln2不是Nothing呢?
原因是這樣的,當我們以這樣的方式定義實例時:
Private m_cln2 As New Collection
在我們一訪問cln2時,vb的runtime就會自動幫我們完成把對象實例化的功能,如下面代碼:
set m_cln2 = nothing
if m_cln2 is nothing then '訪問m_cln2是否為空
...
endif
在上面紅色的代碼,其實VB的Runtime是幫我們做了以下的動作:
set m_cln2 = new collection
這裡,m_cln2已經不為空啦!
其實我們的command4的動作是成功的完成了,在按了Command4的這個時候,兩上Collection已經是為空了,只是我們在檢測m_cln2是否為空時,VB的runtime聰明的幫我們做了一些動作。
其實我們在VB的開發過程中這種情況存在嗎?答案是存在的!
好簡單,我但定議了一張新的Form2,裡面有一個對外的方法,如下:
public sub ShowMessage()
msgbox("hello world!")
endSub
我在張Form1加上一個新的command,command的方法如下:
Private Sub Command1_Click()
Set Form2 = Nothing
Form2.ShowMessage
End Sub
這裡,Command1的同樣動作成功的完成了。