2 qq 32137209 qq_32137209 于 2016.03.11 23:31 提问

vb动态建立的TEXTBOX怎么执行某些命令

Private Text(10) As Object

Private Sub Form_Load()

Dim mm As Integer
For mm = 1 To 10
Set Text(mm) = Me.Controls.Add("vb.textbox", "Text" & Trim(Str(mm)), Me)
next mm
end sub

以下代码无反应啊,请问一下这是怎么回事
Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
print text(index).index
sub

1个回答

caozhy
caozhy   Ds   Rxr 2016.03.12 02:44
已采纳

Private WithEvents Text(10) As TextBox

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!