程式執行後出現Label沒有設定物變數或With區塊變數
- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
回復 1# dechiuan999
試試修改一下表單部份:- Dim myControl() As mTxtClass
- Private Sub UserForm_Initialize()
- Dim i As Long
- ReDim myControl(1 To 3)
- For i = 1 To 3
- Set myControl(i) = New mTxtClass
- Set myControl(i).tb = Me.Controls("Textbox" & CStr(i))
- Set myControl(i).lb = Me.Controls("Label" & CStr(i))
- Next
-
- myControl(1).ck1 = 1
- myControl(2).ck1 = 2
- myControl(3).ck1 = 3
-
-
- End Sub
|
|
|
|
|
|
|
|
發表於 2012-12-2 10:09
| 