Listbox içindeki elemanları döngü ile diziye alma.

05/06/2013, 19:52

direnist

Merhaba;
Ekteki örnekte metin kutusundan listbox içine atılan değerleri AKTAR butonu ile bir diziye aktarabilme konusunda bilgilerinizi rica ederim.
Örneğinn kod tarafında görüleceği üzere birşeyler yapmayı denedim ama başarısız oldum.
Teşekkürler.
İyi akşamlar.
05/06/2013, 20:51

Kur@l

Diziye eleman ekleme tamamdır. Ancak seçilmemişleri aktarmak olmuyor. Önce Seçmek gerekiyor aktarılcak elemanları...
Kolay Gelsin.
05/06/2013, 21:05

direnist

Teşekkürler Kur@l Hocam;
Liste kutusu içinde shift tuşu ile baştaki ve sondakini seçince yada yine liste kutusu içinde iken CTR+A yapınca da hepsini seçemiyoruz.
Bu seçim işini otomatik yapma yolu var mıdır? Macro ile mesela.
Saygılarımla.
05/06/2013, 21:17

Kur@l

komut 5 kodunu değiştirip inceleyiniz.

Private Sub Command5_Click()
'listbox tan diziye aktar

Dim atama, i
boyut = Me.List3.ListCount
ReDim deger(boyut)
For i = 0 To Me.List3.ListCount
Me.List3.Selected(i) = True
Next
i = 0

For Each atama In Me.List3.ItemsSelected

deger(i) = Me.List3.ItemData(atama)
MsgBox deger(i)
i = i + 1
Next
End Sub
05/06/2013, 21:23

direnist

Kur@l Hocam, elinize sağlık, tamamdır.
Çok teşekkür ederim.
İyi akşamlar.
05/06/2013, 21:42

umutakkaya

Selamlar saygılar. Kandiliniz mübarek olsun.

Dosya örneğinizi inceleyemiyorum. Tanınmayan veri tabanı biçimi diyor. Ofisim Access Ofise 2007 olmasına rağmen açmıyor. Neden olabilir. Tekrar selam ve hürmetler..