下标越界
Private Sub Command1_Click()
Dim TEXT() As TextBox
Dim j As Integer
For j = 1 To 4
TEXT(j) = TEXT(j + 1)
Next j
End Sub
为什么它老说我下标越界,请邦我
[解决办法]
Dim TEXT() As TextBox
...............................
没new没大小
[解决办法]
在j=4时j+1=5，如果你只有4个控件的话，那当然就越界了啊。
Private Sub Command1_Click()
Dim TEXT() As TextBox
TEXT(4).Text= " "
Dim j As Integer
For j = 1 To 3
TEXT(j).Text = TEXT(j + 1).Text
Next j
End Sub
还有,你用的是VB.NET么?
你的这个程序虽然定义了TextBox控件,但是并没有将它们加载到窗体上,运行时是不会显示的啊.
楼主最好找一本入门的书看一下,呵呵.
我上次给你回复的那个帖子( "五个TEXTBOX的内容复制 ")你再看一下,应该有帮助的.
