[VBA ] 此處需要物件 ..

看板Visual_Basic作者knust (小湯姆)時間14年前 (2012/01/31 11:51)推噓2(2推 0噓 9→)

留言11則, 2人參與討論串1/1

今天在嘗試寫一個小功能就是希望可以經由輸入的數字來自動產生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)

推

soyoso

01/31 13:11, , 1^F

01/31 13:11, 1^F

→

knust

02/01 13:33, , 2^F

02/01 13:33, 2^F

推

soyoso

02/01 14:44, , 3^F

02/01 14:44, 3^F