- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2011-4-13 16:34 編輯
回復 2# e123chen
物件模組中的 Class1縣市區 As MSForms.CommandButton.
表單中沒有其他作用的CommandButton, 所以將表單中的 CommandButton 指定為 Class1縣市區 即可- Dim Ar() As New Class1命令按鈕
- Private Sub UserForm_Initialize()
- Dim e As MSForms.Control
- ReDim Ar(0)
- For Each e In Me.Controls '表單中的控制項集合
- If e.Name Like "CommandButton*" Then '在表單中的控制項的名稱尋找包含 "CommandButton"
- Set Ar(UBound(Ar)).Class1縣市區 = e
- ReDim Preserve Ar(UBound(Ar) + 1)
- End If
- Next
- End Sub
|
|
發表於 2011-4-13 16:33
| 