使用列表框中的联系人详细信息更新文本框

Question

我正在尝试编写一个程序来更新列表框，其中包含联系人列表。创建了一个没有问题的联系类。

我在显示文本框中当前所选联系人的详细信息时遇到问题。

此外，我无法添加项目，直到列表框至少有一个项目存在。

这是ShowContacts子例程：

 Dim adding As Boolean
        Dim currentContact As Integer 'holds position of current contact
            Private Sub ShowContact()
                    Dim contact As New Contact()
            contact=contactsListBox.Items(currentcontact) 'Problems here 
                    txtAddress.Text = contact.Address
                    txtCity.Text = contact.City
                    txtCompany.Text = contact.CompanyName
                    txtContact.Text = contact.ContactName
                    txtMobile.Text = contact.Mobile
                    txtState.Text = contact.State
                    txtzip.Text = contact.Zip
                End Sub


         '  And this to Save Contacts:
             Private Sub SaveContact()
                    Dim contact As New Contact()
                    contact.CompanyName = txtCompany.Text
                    contact.Address = txtAddress.Text
                    contact.City = txtCity.Text
                    contact.ContactName = txtContact.Text
                    contact.Email = txtEmail.Text
                    contact.Mobile = txtMobile.Text
                    contact.State = txtState.Text
                    contact.Zip = txtState.Text
                    If contactsListBox.SelectedItems.Count > 0 Then
                        If adding Then
                            contactsListBox.Items.Add(contact).ToString()
                        Else
                            contactsListBox.Items(currentContact) = contact
                            contactsListBox.Items.RemoveAt(currentContact)
                            contactsListBox.Items.Add(contact).ToString()
                        End If
                    End If
                End Sub

Answer 1

如评论中所述，我会使用SQL数据库。
以下是我制作的视频，您可以按照该视频来设置数据库。
https://www.youtube.com/watch?v=A8GQIfniA4c
如果您有任何问题，请告诉我，我会尽力帮您解决。
快乐编码！