作者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