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: Kodu kopyalamak için üzerine çift tıklayın!
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.