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