Skip to main content

AccessTr.neT


2 ListeKutusu ile çokluseçim kullanma

2 ListeKutusu ile çokluseçim kullanma

Çözüldü #1
Vb.net üzerinde bir proje ile uğraşmaktayım ve sorularımdan ilki şu olacak :
2 tane listbox arası multiselect yaparak tek button ile listbox1 de çoklu seçtiğim textleri listbox2 ye aktarmak istiyorum yalnız kod olarak standart vb kodunu vb.net e çeviremedim. Yardımcı olursanız sevinirim

standart vb kodu :

Dim i As Integer
If List1.ListIndex = -1 Then Exit Sub
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next i
End Sub
Cevapla
Çözüldü #2
Hmm biraz garip olacak ama uzun bir süredir uğraşıyordum bu sorunla ancak şimdi çözebildim ve kodu sizlerle paylaşmak istedim umarım birilerinin daha işine yarar :

Dim arrlist() As String
Dim cnt As Integer

cnt = ListBox1.SelectedItems.Count - 1
ReDim arrlist(cnt)

ListBox1.SelectedItems.CopyTo(arrlist, 0)
ListBox2.Items.AddRange(arrlist)

Bu arada üzrinde çalıştığım proje şirketlerde çalışan personelin performans değerlendirmesi için yöneticelere destek sağlayan bu işlemle beraber çeşitli raporlar sunan bir proje olacak. Veritabanı olarak Sql server kullanacağım. İlgilenen, yardımcı olmak isteyenler bana ulaşabilirler. Daha sonra eğer bitirebilirsem "Visual Basic .NET Örnekleri ve Uygulamaları" başlığı altında paylaşacağım. Herkese kolay gelsin
Cevapla
Çözüldü #3
İlgilenen, yardımcı olmak isteyenler bana ulaşabilirler.
HalayHalay
Cevapla
Çözüldü #4
Sn:Anakronik
Sorunuza bulduğunuz cevabı bizlerle paylaştığınız için teşekkürler.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #5
sn.anakronik
bu kodun her satırının ne manaya geldiğinide yazabilirseniz çok memnun olurum

Dim arrlist() As String

mesela bu kodda "()" kullanılarak dizimi tanımlanmış oluyor

bu kodu accessde nasıl kullanabilirz
@benbendedeilem
Cevapla
Çözüldü #6
Bu kodu visual studio 2008 üzerinde bir vb formunda kullandım Access için bir geçerliliği yoktur. Buyrun tamamını şöyle anlatayım :

[Resim: 45944654.jpg]


Bu ekranda (projemin konusu üzerinden anlatmaktayım) şirketteki performansı değerlendiren yönetici çalışanın performansını etkileyecek faktorleri gerekirse girip seçmektedir. Seçme işlemi "Choose Factor(s)" düğmesi ile gerçekleşmektedir ve bahsettiğim kod bunun altına yazılmaktadır. Kodun açıklamasını ise ;

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim arrlist() As String "Burada arrlist() isminde tamamen adı size kalmış bir string değişkeni yaratıyorum. Bu değişken çoklu seçtiğim itemleri kendi içinde bir array (dizin) olarak tutmaya yarayacak"
Dim cnt As Integer "Burada ise cnt isimli bir integer değişkendi yaratıyorum. Bu ise listbox1 deki seçili maddeleri(faktörler) saymakta kullanılacak"

cnt = ListBox1.SelectedItems.Count - 1 "Sayma işlemi burda yapılıyor ve değer cnt değişkenine bir eksiltilerek atanıyor"
ReDim arrlist(cnt) "Bu sayı arrlist dizin değişkenine atanıyor"

ListBox1.SelectedItems.CopyTo(arrlist, 0) "Seçili maddeler arrlist dizinine kopyalanıyor"
ListBox2.Items.AddRange(arrlist) "kopyalanan maddeler arrlist dizininin içindeki aralıkta sınırlı kalarak listbox2 ye aktarılıyor"

End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task