VB 动态添加textbox控件,让添加出来的控件触发Change

PrivateSubForm_Load()b=1EndSub============================================PrivateSubC... Private Sub Form_Load()b = 1End Sub============================================Private Sub Command1_Click()Dim a As TextBox, b As Longb = b + 1Set a = Form1.Controls.Add("VB.TextBox", "Text" & b)a.Visible = Truea.BackColor = RGB(255, 255, 255)a.Text = "HJonny"a.BorderStyle = 0a.Move 0, 0, 2155, 255End Sub ====================================================这代码点击一下按钮就创建一个TextBox控件,我想让添加出来的能触发Change事件,就像这样:Private Sub Text1_Change()Label1.Caption = Text1.TextEnd Sub应该怎么实现呢? 展开
 我来答
syx54
2011-12-23 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2718万
展开全部
你要这样,添加1个文本框Text1,然后设置它的 Index 属性为0
用下面代码:
Option Explicit
Dim a As TextBox, b As Long
Private Sub Form_Load()
b = 1
End Sub
Private Sub Command1_Click()
b = b + 1
Load Text1(b)
Text1(b).BackColor = RGB(255, 255, 255)
Text1(b).Text = "HJonny"
Text1(b).BorderStyle = 0
Text1(b).Move 0, 0, 2155, 255
Text1(b).Visible = True
End Sub
Private Sub Text1_Change(Index As Integer)
Label1.Caption = Text1(Index).Text
End Sub
还有问题要解决,你这个按钮1,可以不断添加文本框的,要适当修改代码.
井叶孤彤rH
2011-12-23
知道答主
回答量:23
采纳率:0%
帮助的人:6.5万
展开全部
观望中
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式