Onur Selek Kişisel web sitesi…

İsim girme var sıra noya göre gösterme

Listbox nesnesi üzerinden yapıyoruz işlemi ama kullanıcı bu listbox'u görmüyor gizliyoruz tabiki. Sonra isimleri for la alıp listbox'a ekliyoruz, daha sonra kullanıcıdan bir sıra alıp ListBox1.Items.Item(sıra) kodu ile sıra yerine tabiki sıra no gelecek alıp textbox'a yazıyoruz. Kodlar aşağıdadır:

Public Class Form1
Dim a, sa As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For a = 1 To 6
ListBox1.Items.Add(InputBox("İsim gir"))
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sa = Val(InputBox("Sıra Gir")) - 1
TextBox1.Text = ListBox1.Items.Item(sa)
End Sub

End Class