IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Listbox la yapılan bir veriyi text ten girip listbox tan tekrar seçerek aynı hizaya getirip tekrar textlere yansıtmak. Binevi DataGrid gibi.

Kod:

Private Sub Command1_Click() List1.AddItem Text1 List2.AddItem Text2 List3.AddItem Text3 List4.AddItem Text4 End Sub  Private Sub List1_Click() a = List1.ListIndex List2.ListIndex = a List3.ListIndex = a List4.ListIndex = a  Text1.Text = List1.Text Text2.Text = List2.Text Text3.Text = List3.Text Text4.Text = List4.Text End Sub  Private Sub List2_Click() a = List2.ListIndex List1.ListIndex = a List3.ListIndex = a List4.ListIndex = a End Sub  Private Sub List3_Click() a = List3.ListIndex List2.ListIndex = a List1.ListIndex = a List4.ListIndex = a End Sub  Private Sub List4_Click() a = List4.ListIndex List2.ListIndex = a List3.ListIndex = a List1.ListIndex = a End Sub

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]