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

Question

我正在尝试编写一个程序，用联系人列表更新Listbox。创建了一个联系人类，没有问题。

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

此外，在Listbox至少有一个项目之前，我无法添加项目。

这是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
如果你有任何问题，请告诉我，我会尽力帮助你
编码快乐！