VB中如何偵測command button 已存在？

Question

目前使用動態新增控制項的方式新增了許多command button
但因為程式使用中會unload掉一些
再重新叫出時若重複使用到已存在的button
則程式就會當掉了
請問該如何才能判別出button是否已存在呢？
謝謝

Answer 1

Function IsLoad(ByVal ID As Integer) As Boolean
Dim S As String
On Error Resume Next
S = Command2(ID).Name
IsLoad = Err = 0
End Function

Private Sub Command1_Click()
If IsLoad(1) = False Then Load Command2(1): Command2(1).Visible = True
End Sub

Answer 2

利用以下的方式可以尋找在該表單所出現過的物件名稱：
　For Each obj In Controls
　　Print obj.Name
　Next

其他的，應該就好辦了吧！

Answer 3

補充月島大，也比較省CPU。

Answer 4

與其要去偵測物件是否存在
不如想一下
怎麼重覆利用那些你打算要unload掉的物件...
還比較省記憶體
不是嗎....
我回來了...吧??