VB动态添加控件的问题——TextBox文本框

PrivateSubCommand1_Click()DimaAsLabelDimiAsIntegerFori=0To9Seta=Form1.Controls.Add("V... Private Sub Command1_Click()
Dim a As Label
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Caption = "Text" & i
Next
Lab.Caption = "动态添加控件成功"
End Sub

哪位高手看看,这个程序错在哪里啦,我都郁闷了,,谢谢啦!
展开
 我来答
华夏日长兴
2009-08-10 · TA获得超过9592个赞
知道大有可为答主
回答量:6305
采纳率:85%
帮助的人:3712万
展开全部
Private Sub Command1_Click()
Dim a As TextBox
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Text = "Text" & i
Next
Lab.Caption = "动态添加控件成功"
End Sub
st_heping
2009-08-10 · TA获得超过153个赞
知道小有建树答主
回答量:385
采纳率:0%
帮助的人:197万
展开全部
Private Sub Command1_Click()
Dim a As TextBox
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(255, 255, 255)
a.Text = "Text" & i
Next
MsgBox "动态添加控件成功"
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
用户名是啥东西
2009-08-10 · TA获得超过868个赞
知道小有建树答主
回答量:490
采纳率:0%
帮助的人:454万
展开全部
1. 首先,你是动态添加textbox文本框的,那么你Dim a As Label肯定类型不匹配,可以直接Dim a
2. textbox文本框没有Caption属性,只有text属性

修改这两处后,可以执行了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
guanguanwky
2009-08-10 · TA获得超过237个赞
知道小有建树答主
回答量:379
采纳率:0%
帮助的人:314万
展开全部
Dim a As textbox

a.text = "text" & i
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式