تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أرجوكم مساعة في أداة الليست بوكس
#1
السلام عليكم ورحمة الله وبركاته أما بعد أخواني أريد مساعدتكم بأداة الليست بوكس والسؤال هو كيف يمكنني ان أجعل ألitems بالليست بوكس 1 نفس اللي بالليست بوكس 2 السؤال سهل أعتقد أتمنا أن أجد إجابة
الرد }}}
تم الشكر بواسطة:
#2
تفضل

PHP كود :
 For Each list2 As String In ListBox2.Items
            ListBox1
.Items.Add(list2)
 
       Next 
الحمد لله رب العالمين على كل شي
الرد }}}
#3
شكراً لك أخي لكن أن قمت بالحذف من الليست بوكس 1 هل ينحذف من الليست بوكس 2 أرجوك إجابة
الرد }}}
تم الشكر بواسطة:
#4
(20-08-15, 08:21 PM)فراس صلاح كتب : شكراً لك أخي لكن أن قمت بالحذف من الليست بوكس 1 هل ينحذف من الليست بوكس 2 أرجوك إجابة

لو كانو مرتبطين بمصدر واحد فنعم يتم الحذف من الكل ... اما بالطريقة  المكتوبة بمشاركة الاخ فلا .. حتى تعيد الاجراء.
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#5
شكراً لكم جزيلاً لكن وجدت طريقة لإضافة وحذف الITEMS المحددة لكن يجب أن يكون الليست بوكس في نفس الفورم وهذا هو الكود 
كود :
ListBox1.Items.Remove(ListBox1.SelectedItem)
لكن كيف أجعله يحدد ما حدده المستخدم في ليست بوكس في فورم آخر مثال كود 

كود :
FORM2.ListBox1.SelectedItem = LstOrder.SelectedIte

مع العلم أن الكود لم ينجح هل هناك طريقة لجعله ينجح ويعمل وشكراً لكم سلفاً
الرد }}}
تم الشكر بواسطة:
#6
ممكن تستعين بدالة من نوع Listofstring تخزن ما تم تحديده وتستقبل النتيجة بفورم اخر.
ارجو ان اكون فهمت المطلوب.
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#7
سلام

كود :
Form2.ListBox1.SelectedIndex = ListBox1.SelectedIndex

موفقين
متغيب
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود , سعود
#8
أخي الكريم الاستاذ"الطالب" هو يقصد اكثر من Item هل نستخدم selecteditems

هذي تجربتي
PHP كود :
Public Class Form1
    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        Form2
.Left Me.Left Form2.Width
        Form2
.Top Me.Top
        Form2
.Show()
    
End Sub
    
Private Sub Form1_Move(sender As ObjectAs EventArgsHandles Me.Move
        Form2
.Left Me.Left Form2.Width
        Form2
.Top Me.Top
    End Sub
    
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Form2
.ListBox1.Items.Clear()
        
Form2.ListBox1.Items.AddRange(Me.ListBox1.Items)
    
End Sub
    
Public lst As New List(Of String)
    Private Function 
sel()
        For 
0 To Form2.ListBox1.Items.Count 1
            
If lst.Contains(Form2.ListBox1.Items(t)) Then
                Form2
.ListBox1.SetSelected(tTrue)
            
End If
        
Next
    End 
Function

    Private 
Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        
For Each itm In ListBox1.SelectedItems
            lst
.Add(itm)
        
Next
        sel
()
    
End Sub
End 
Class 

وهذي لقطة
http://www.gulfup.com/?bWu7qy
الرد }}}
#9
سلام

شكرا استاذ سعود على التنبيه

كود :
For i = 0 To ListBox1.Items.Count - 1
    Form2.ListBox1.SetSelected(i, ListBox1.GetSelected(i))
Next

موفقين
متغيب
الرد }}}
تم الشكر بواسطة: سعود
#10
ماشاءالله تبارك الله .. كل فترة اتعلم منك اشياء جديدة  والاروع فيها تنفيذ مهام عدة باكواد قليلة.
انظر للاكواد والدوال عنديSmileSmileSmile
الرد }}}
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  أداة التاريخ والوقت اسلام الكبابى 9 2,578 10-06-23, 04:39 AM
آخر رد: اسلام الكبابى
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم