اخواني اريد أن أضع ما جميع عناصر list1 في list2

في المرفقات مثال حول النقل

بالتوفيق

ListBox.rar

أخي ممكن شر هذا الكود أعذرني :(

iCounter = 0

	Do While lstLeft.ListCount > 0
		lstRight.AddItem lstLeft.List(0)
		lstLeft.RemoveItem 0
	Loop

حتى لا أبعدك عن كودك و دخلك في متاهات

استعمل كودك لكن غير فيه التالي

وليعمل الكود السابق معك أضف (i)

أي يصبح الكود

For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next

مشكور أخي ــــــــــــــــــــــ^-^

طيب لو اريد أن احذف عناصر الlist دفعة واحدة

انا كتبت هذا الكود ما ينقصه؟؟؟؟؟

For i = 0 To List1.ListCount - 1
List1.RemoveItem List1.List(i)
Next

انا عارف انه من الممكن أعمل

list1.clear

ولكن انا لا أريده

استخدم الكود

	Do While List1.ListCount > 0
		List1.RemoveItem 0
	Loop

شكرا أخي جزاء الله ألف خير.

انا لدي مجموعة أسئلة بخصوص الList box ياريت أحصل الاجابة:

1-كيف أضيف جميع الfiles في Commondialog الى List box ؟

2-كيف أضيف جميع files في File الى List box؟

3-كيف أضيف الحروف التي تكتب في text box الى List box يعني انا عايز أكتب أحمد أريد حروف هذه الكلمة في الList box ؟

أخي انا اسف ثقلت عليك بس انتم ملجئي بعد الله ياريت أحصل الاجابة :rolleyes:

ياريت تكون الاكواد مش معقدة عشان انا لسة بادئ بالموضوع :unsure:

أريد جواب :)

اقتباس

كيف أضيف جميع الfiles في Commondialog الى List box ؟

/index.ph...st&p=645140

اقتباس

كيف أضيف جميع files في File الى List box؟

هو مش واضح شويه السؤال !

اقتباس

كيف أضيف الحروف التي تكتب في text box الى List box يعني انا عايز أكتب أحمد أريد حروف هذه الكلمة في الList box ؟

بردو مش واضح !! يعني عاوز تبحث في الليست بواسطت كتابة الاحرف الاولى في TEXT ?

اقتباس

كيف أضيف جميع files في File الى List box؟

أخي انا قصدي لوعندي أداة file في form2 وعندي list في form1 انا عايز أضع كل أسماء الملفات ألتي في file في list التي

في form1.

اقتباس

كيف أضيف الحروف التي تكتب في text box الى List box يعني انا عايز أكتب أحمد أريد حروف هذه الكلمة في الList box ؟

هنا أنا أقصد اني لوكتبت أحمد في text box أريد فك حروف أحمد يعني (أ-ح-م-د) في الlist .

أرجوا من الله أني وضحت الفكرة :)

اقتباس

أخي انا قصدي لوعندي أداة file في form2 وعندي list في form1 انا عايز أضع كل أسماء الملفات ألتي في file في list التي

في form1.

اعمل دواره مثلا من نوع For تعمل بعدد عناصر الـ FileList ومن ثم تقوم باضافة العنصر الحالي الى الـ ListBOx وذلك بنسب كل منهما للفورم الموجود بها كما هو موصح بالكود التالي :

	Dim I As Integer

	For I = 0 To Form2.File1.ListCount - 1
		Form2.File1.ListIndex = I
		Form1.List1.AddItem Form2.File1.FileName
	Next I

اقتباس

هنا أنا أقصد اني لوكتبت أحمد في text box أريد فك حروف أحمد يعني (أ-ح-م-د) في الlist

نقوم بعمل دواره مثلا من نوع For يتم عملها بدايه من 1 الى طول السلسله النصيه ومن ثم تبدأ عمل الداله Mid$ بإيجاد حرف حرف بدايه من اول النص الى اخره .

كما هو موضح بالكود التالي :

Dim i As Integer
Dim txt As String

	txt = "أحمد"
	For i = 1 To Len(txt)
		List1.AddItem Mid$(txt, i, 1)
	Next i

مشكور أخي وما قصرت معلش حثقل عليك طيب لو انا عايز أحذف العنصر الذي إختارة المستخدم

انا كتبت الكود بس الكود بيحذف من أخر عنصر الى اول عنصر .

يعني لو انا إخترت العنصر الاخير بيحذفة ولكن إذا اخترت الذي قبلة يظهر رسالة خطأ

الكود:

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem (i)
End If
Next

A7med_prof كتب:

بنفس الكود السابق وبمعلومية الـ Index الحالي ( اللي معمله اختيار من الليست ) .

وطبعا لا بد من التحقق اولا بأن المستخدم اختار من الـ Listbox عنصر حتى لا يحدث خطأ .

وذلك كما هو موضح بالكود التالي :

If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex

بإفتراض ان الـ List1 هي المراد التعامل معها .

بالتوفيق ,,,,,

A7med_prof