Güncelleştirilecek Metin Kutularını Liste kutularından ayrıntılar Güncelleştirme

Question

Listenin bir listesini bir rehber listesiyle güncelleştirmek için bir program yazmaya çalışıyorum. Sorun yaşamayan bir kişi oluşturuldu.

Şu anda seçili kişinin metin kutularındaki ayrıntılarını görüntülemede sorunlarla karşılaşıyorum.

Ayrıca, Listbox'ın en az bir öğesi bulunana kadar bir öğe ekleyemiyorum. yorumlarda belirtildiği gibi

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

i bir SQL veritabanı kullanır: Burada

ShowContacts alt rutindir.
Veritabanınızı ayarlamak için takip edebileceğiniz bir rehber olarak hazırladığım bir video.
https://www.youtube.com/watch?v=A8GQIfniA4c
Herhangi bir sorun yaşarsanız, bildirin ve size yardımcı olmak için elimden gelenin en iyisini yapacağım.
Mutlu Kodlama!