listbox index te verinin yukarı aşağıya tasınması.

[Kemal Demir]

Öncelikle Ali bey,

Bilgilendirmeniz için size tekrar teşekkurler.

Sorumu yazıyorum;

ListBox6.ListIndex = ListBox6.ListIndex + 1

Bu kod sadece listbox1'in index ine gidiyor.(text ile birlikte nasıl işlem yapmam gerekirdi.Text'inde aşagı yukarı tasınması için ne yapabilirim.)

Konu hakkında bilgisi olan paylaşabilir mi?

 

[Rafet]

Bende bunu arıyordum. KOnunuzugörünce ve cava gelmeyince kendi kendme çözüm aramaya başladım. Ve çözüm çok kolaymış.

İndex nuarası değştirmektencok. Secilen veri ile yukaraki verinin yer değiştirmesi olarak düşünüp yaptığımızda çözüm cok cabuk oluştu.

 If txt_listbox1.ListIndex > 0 Then
    deger1 = listbox1.List(txt_detaylanacak.ListIndex)
    deger2 = txt_listbox1.List(txt_listbox1.ListIndex - 1)
    txt_listbox1.List(txt_listbox1.ListIndex) = deger2
    txt_listbox1.List(txt_listbox1.ListIndex - 1) = deger1
   End If