Question

能帮我看看这段程序哪里错了吗？生成的EXE提示下标越界

Private Sub Form_Load()
Dim i As Integer
Dim Text()
For i = 0 To 3
Text1(i).LinkTopic = "view|tagname"
Next

Text1(0).LinkItem = "plc.STATIC100"
Text1(1).LinkItem = "plc.STATIC101"
Text1(2).LinkItem = "plc.STATIC102"
Text1(3).LinkItem = "plc.STATIC103"
Text1(0).LinkMode = 1
Text1(1).LinkMode = 1
Text1(2).LinkMode = 1
Text1(3).LinkMode = 1
End Sub
Private Sub Text1_Change(Index As Integer)
Dim Text()
vbtoview.Text = Text1(0).Text
vbtoview1.Text = Text1(1).Text
vbtoview2.Text = Text1(2).Text
vbtoview3.Text = Text1(3).Text
End Sub

Answer 1

Dim Text() 这里声明的是Text
For i = 0 To 3
Text1(i).LinkTopic = "view|tagname" 这里用的是Text1
Next

一字之差

追问

那要是我不用上面和下面Dim Text()这条语句，这段代码能用吗，不能用要怎么修改

追答

你有这个文本框控件组吗？检查一下

追问

我删了之后它上面提示Text1(i)未定义，所以我才加了Dim Text()这段语句

我按你说的改成Text1，这样生成的EXE还是下标越界

追答

你在VB环境，没有提示错误，生成EXE后执行有错误？
那是不是你的VB有问题？
建议使用：VB 6 简体中文企业版 + SP6补丁

追问

有下载链接给我吗，谢谢

追答

非常大，邮件联系：syx54@sohu.com