请问高手帮忙看下面vb.net的对象数组问题在哪。
Public Class Form1
Private BarProp() As ClsBarProperty
Private BarPropNum As Integer = -1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BarPropNum += 1
ReDim BarProp(BarPropNum)
BarProp(BarPropNum) = New ClsBarProperty()
PropertyGrid1.SelectedObject = BarProp(BarPropNum)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PropertyGrid1.SelectedObject = BarProp(2)
End Sub
End Class
[解决办法]
redim 之前 你要确保 BarPropNum >0
0的话 没意义
还有
BarProp(BarPropNum) = New ClsBarProperty()
应该是
BarProp(BarPropNum-1) = New ClsBarProperty()
