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