ListBox ta listelenen 10 isimden seçilene göre açıklama

[kelkitli]

Değerli Dostlar Selamlar,
ListBoxta sıralanan 10 öğeden 1. si seçilince TextBoxa "Kendisi", 2.si seçilince "Eşi", 3.ve daha sonrakiler seçilince "Çocuğu" yazdırmak istiyorum.

 

[Orion1]

Kodlar aşağıda.

Private Sub ListBox1_Click()
On Error Resume Next
If ListBox1.ListCount < 1 Then Exit Sub
If ListBox1.ListIndex = 0 Then TextBox1.Text = "Kendisi"
If ListBox1.ListIndex = 1 Then TextBox1.Text = "Eşi"
If ListBox1.ListIndex > 1 Then TextBox1.Text = "Çocuğu"
End Sub

 

[kelkitli]

Üstadım Sağol, Varol. Hakkın ödenmez. Allah razı olsun.

 

[Orion1]

Üstadım Sağol, Varol. Hakkın ödenmez. Allah razı olsun.

Rica ederim.
İyi çalışmalar.