将新书添加到数组 Books()答案

【问题标题】：Adding a new book to an array Books()将新书添加到数组 Books()
【发布时间】：2014-09-28 23:31:52
【问题描述】：

我必须向数组 Books() 添加一本新书。我使用一个文本文件来填充数组，现在我需要 ReDim Preserve 将一本新书添加到数组中。这是我拥有的 ReDim 和 For 循环以及执行此操作的功能，但它无法正常工作。关于如何做到这一点的任何想法。

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

    Dim newBook As Book
    newBook = EmptyBook()

    ReDim Preserve Books(Books.Count)

    For i As Integer = 0 To Books.Count - 1
        Books(i) = newBook
    Next

End Sub

Function EmptyBook() As Book
    Dim Answer As Book
    With Answer
        .title = txtTitle.Text
        .authorLastName = txtAuthor.Text
        .year = CInt(txtYear.Text)
        .value = CDec(txtValue.Text)
    End With
    Return Answer
End Function

【问题讨论】：

展示填充数组和其他类的方式。

标签： arrays vb.net

【解决方案1】：

尝试以下方法：

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Dim newBook As Book
newBook = EmptyBook()

if Books is nothing then
  ReDim Books(0)
else
  ReDim Preserve Books(Books.GetUpperBound(0) + 1)
end if

Books(Books.GetUpperBound(0)) = newBook 

End Sub

【讨论】：