Listbox'tan satır seçmek

[tamer42]

Merhabalar,

Form üzerindeki bir listboxt' ta seçili olan satırdan bir yada iki sonraki satırı seçtirmek istiyordum yalnız yapamadım,


*****************************
Private Sub CmdGoster_Click()

Dim a As Integer

a = Me.Liste0.ListIndex + 1

Me.Liste0.Selected (a)
..............
.....................

*****************************


gibi bir kod yazmaya çalıştım ama hata veriyor, belki çok basit

ama işin içinden çıkamadım

İyi Akşamalar.

 

[akd]

Merhaba sayın tamer42,
ben aşağıdaki gibi yapıyorum
Me.BirimFiyat = Me.Açılan_Kutu34.Column(4)
ben açılan kutunun 4.alanındaki veriyi [BirimFiyat] metin kutusuna almak için bu kodu kulanıyorum.
Me.Açılan dan alıyorum sen listeden aynı şey Me.Liste0
Eğer yapamazsan, belgeni forma ekle yardımcı olmaya çalışayım.
İyi çalışmalar...

 

[tamer42]

Merhaba;

Listbox Tek bir Column dan oluşuyor, liste0' a verileri aşağıdaki şekilde ekleyorum, buraya kadar bir sorun yok.
-----------------------------------------------------
While Dosya <> ""

Me.Liste0.AddItem Item:=Dosya
Dosya = Dir
i = i + 1

Wend
-----------------------------------------------------

Bu işlemden sonra:

Liste0 üzerinde herhangibir satırı(dosya adı) seçtim (aktif yaptım) daha sonra; bu satırın bir altındaki satırın seçilmesini (aktif olmasını) nasıl sağlayabilirim.

Örneğin; Liste0 üzerinde 10. sıradaki satır seçili iken, command button a (CmdGoster) bastığımda 11. satırı seçilmesini sağlamak.

İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Seçimin değişebilmesi için liste dışına odaklanmak gerekiyor. Aşağıdaki kodlar işinizi görürür sanırım:

Private Sub cmdGöster_Click()
Dim a As Integer
    a = Me.Liste0.ListIndex
    Me.Caption = "Göster"
    Me.Liste0.Selected(a + 1) = True
End Sub

İyi çalışmalar

 

[tamer42]

Sn Modalı ilginize teşekkürler,


********
Me.Liste0.Selected(a + 1) = True
********

seçili satırın değerini

********
Me.Liste0.Value
********

ile alacağımı düşünüyordum, yalnız hep ilk değeri veriyor.


İyi çalışmalar