リストボックスから連絡先の詳細を含むテキストボックスを更新

Question

連絡先のリストでリストボックスを更新するプログラムを作成しようとしています。連絡先クラスを問題なく作成しました。

現在選択されている連絡先の詳細をテキストボックスに表示する際に問題が発生しています。

また、リストボックスに少なくとも1つのアイテムが存在するまでアイテムを追加することはできません。ここで

が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
問題がある場合は、教えてください。私はあなたを助けるために最善を尽くします。
ハッピーコーディング！