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

elimde tarih, öğün ve yemek kayıtlarını tutan veri tabanı var

( Tarih Öğün Yemek
1 ocak 2015 ; sabah; çay
............
gibi)

amacım sürekli-form kullanarak alt alta olan bu kayıtları
[Resim: https://accesstr.net/resim/do.php?img=4785]

öğünlere göre sıralamak  (aşağıdaki resimdeki gibi).

[Resim: https://accesstr.net/resim/do.php?img=4786]


liste kutularını öğünlere göre filtreleye biliyorum ama maalesef liste kutuları gösterm

MErhaba arkadaşlar,
daha önce yardımcı olduğunuz kodlar sayesinde düzenlemeye çalıştığım kodlarda bir eksiklik var.
ilk seçenekte fatura_bag= 0 ikincisinde fatura_Bag= sıfır değil üçüncü seçenekte tamamını göstermek istiyorum. veritabanım ektedir.
Yardımcı olur musunuz?
[code]Private Sub Çerçeve99_AfterUpdate()
Select Case Çerçeve99
Case 1




Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_t