+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 2 ListeKutusu ile çokluseçim kullanma (/konu-2-listekutusu-ile-coklusecim-kullanma.html)
Sayfalar:
1
2
2 ListeKutusu ile çokluseçim kullanma - Anakronik - 14/07/2010
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
Cvp: 2 ListeKutusu ile çokluseçim kullanma - Anakronik - 15/07/2010
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
Cvp: 2 ListeKutusu ile çokluseçim kullanma - mustafa_atr - 15/07/2010
İlgilenen, yardımcı olmak isteyenler bana ulaşabilirler.
Cvp: 2 ListeKutusu ile çokluseçim kullanma - ogulcan92 - 15/07/2010
Sn:Anakronik
Sorunuza bulduğunuz cevabı bizlerle paylaştığınız için teşekkürler.
Cvp: 2 ListeKutusu ile çokluseçim kullanma - accessman - 16/07/2010
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
Cvp: 2 ListeKutusu ile çokluseçim kullanma - Anakronik - 16/07/2010
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]](http://img228.imageshack.us/i/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