Question

vb。net如何把一个字符串赋给一个数组元素？

注意是一个字符串，不是一个字符。
dim pathn() as string
If OFD.FileName <> "" Then
pathn(tmp) = OFD.FileName
Dim s() As String = OFD.FileName.Split("\")
page.Text = s(s.Length - 1)
Else
page.Text = "(未命名)"
End If
这是我写的一段代码，OFD是打开对话框，tmp是当前的页面的序号
目的是把OFD里的文件路径放到pathn这个数组中，而数组的index就是页面的序号，这样就能为多个打开的文件都保存路径。
但是当执行到pathn(tmp) = OFD.FileName这一句的时候，如果是在调试过程中就会怎么按“打开”按钮打开框（OFD）都没反应，如果是直接运行程序，程序在按“打开”的同时就自动关闭了，经过反复的查找，发现就是这一句的问题，哪位高手能帮帮忙啊？

Answer 1

dim pathn() as string中数组pathn声明错误，没有指明数组pathn的大小。在pathn(tmp) = OFD.FileName时产生错误
实际上dim pathn() as string保存不了多个打开的文件路径，因为每次dim pathn() as string
，数组pathn都被重新设置

追问

我是把pathn放在函数和过程外面的,直接在类里面定义的,所以不会刷新.VB支持不指定大小的数组方式啊?在使用中不断的根据元素个数进行扩充和缩小.

追答

你到底使用VB.NET还是VB?两者有相当大的差距，不能简单的将VB.NET当作VB的升级版

在VB.NET中如果指定dim pathn(20) as string，tmp不大于20你的程序可以运行，关键是你要把程序帖全

追问

程序贴全的话要1000多行代码呢！算上系统自动生成的大概接近3000行。
非常确定是vb.net，不是vb升级版，不过我是要实现多文档编辑，用户在使用的时候，可能会打开无限多个标签，不可能用有限数组来定义啊。

追答

先指定dim pathn(0) as string
在pathn(tmp) = OFD.FileName前增加ReDim Preserve pathn(tmp)
实际可以使用集合，但几千行的程序改起来很麻烦