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.

Diziye eleman ekleme tamamdır. Ancak seçilmemişleri aktarmak olmuyor. Önce Seçmek gerekiyor aktarılcak elemanları...
Kolay Gelsin.

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.

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

Kur@l Hocam, elinize sağlık, tamamdır.
Çok teşekkür ederim.
İyi akşamlar.

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..