作者knust (小湯姆)
看板Visual_Basic
標題[VBA ] 此處需要物件 ..
時間Tue Jan 31 11:51:27 2012
今天在嘗試寫一個小功能
就是希望可以經由輸入的數字來自動產生TextBox
這個功能是寫在按鈕上面,不過不知道為什麼都會一直卡在"此處需要物件"上 ><
OS : WinXP
Platform : Office2003 SP3
Dim a() As Object
Private Sub CommandButton1_Click()
aa:
n = InputBox("")
If StrPtr(n) = 0 Then Exit Sub
If Val(n) < 1 Then GoTo aa
ReDim a(Val(n))
For i = 0 To Val(n) - 1
Set a(i) = Controls.Add("vb.textbox", "a" & i, Form)
'是上面這行有問題
a(i).Visible = True
a(i).Move i * 500, 0, 400, 100
Next i
CommandButton1.Enabled = False
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 223.143.167.83
※ 編輯: knust 來自: 223.143.167.83 (01/31 11:52)
※ 編輯: knust 來自: 223.143.167.83 (01/31 11:54)
1F:推 soyoso:vb.textbox改forms.textbox.1試試 01/31 13:11
2F:→ knust:改為forms.vb.textbox還是一樣會出現此處需要物件的訊息 ~"~ 02/01 13:33
3F:推 soyoso:"vb.textbox"改為"forms.textbox.1"也會出現需要物件嗎? 02/01 14:44
4F:→ soyoso:因為我改後於excel2003內執行是ok的 02/01 14:45
5F:→ knust:剛剛改為forms.text.1還是一樣喇賽 ...附上我的platform 02/03 13:38
11F:→ knust:俺研究看看...感謝提供素材~ 02/06 11:19