[khaled12345]

السلام عليكم ورحمة الله وبركاته

الاخوة الاعزاء

عملت برنامج بسيط برعايتكم ومساعداتكم المستمرة

فقط اريد مساعدتكم في الاتي

عند عمل   Update

ثم الضغط علي Enter

تدخل الداتا من التكست بوكس الي ال ListBox

المطلوب هو : كود لعمل Select all من ال List box

والغرض من ذلك كي اتمكن من نسخ او قص  محتويات كل الداتا التي في ListBox


برجاء فحص المرفق

مع جزيل الشكر

[طالب برمجة]

لعمل Select all من ال List box هذا هو الكود

PHP كود :

For i = 0 To ListBox1.Items.Count - 1
    ListBox1.SetSelected(i, True)
Next 


[khaled12345]

(08-12-17, 12:35 AM)طالب برمجة كتب : لعمل Select all من ال List box هذا هو الكود

PHP كود :

For i = 0 To ListBox1.Items.Count - 1
    ListBox1.SetSelected(i, True)
Next 


مشكور اخي الحبيب


Select All  تعمل تمام

بس بعد اذنك عاوز بعد select All  وكانها copy

يعني اقدر اخد الداتا اللي في الListBox

واقدر انسخها في اي مكان اخر زي الورد او الاكسيل مثلا

مع جزيل الشكر لحضرتك

[khaled12345]

(08-12-17, 01:08 AM)khaled12345 كتب :

(08-12-17, 12:35 AM)طالب برمجة كتب : لعمل Select all من ال List box هذا هو الكود

PHP كود :

For i = 0 To ListBox1.Items.Count - 1
    ListBox1.SetSelected(i, True)
Next 


مشكور اخي الحبيب


Select All  تعمل تمام

بس بعد اذنك عاوز بعد select All  وكانها copy

يعني اقدر اخد الداتا اللي في الListBox

واقدر انسخها في اي مكان اخر زي الورد او الاكسيل مثلا

مع جزيل الشكر لحضرتك

شكرا اخواني

اتحلت الحمد لله

وقد اضفت هذا الكود
 
Clipboard.SetText(String.Join(Environment.NewLine, ListBox1.SelectedItems.Cast(Of String).ToArray)) 

مع جزيل الشكر

[طالب برمجة]

اذا كنت تريد تنسخ جميع عناصر الليست بوكس في الحافظة فلا داع لعمل Select all
تعديل للكود الذي منك

PHP كود :

Clipboard.SetText(String.Join(vbNewLine, ListBox1.Items.Cast(Of String))) 


[khaled12345]

(08-12-17, 03:24 AM)طالب برمجة كتب : اذا كنت تريد تنسخ جميع عناصر الليست بوكس في الحافظة فلا داع لعمل Select all
تعديل للكود الذي منك

PHP كود :

Clipboard.SetText(String.Join(vbNewLine, ListBox1.Items.Cast(Of String))) 


بارك الله فيك وجزاك الله خيرا اخي الحبيب