الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب كود مساواة اداتين List1 و List2

بدأه العالم في 5 مارس 2008 · 5 رد · 829 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي ادة من نوع list اسمها list1 والاداة الثانية اسمها list2 بالنسبة للاداه الاولى مليئه ببيانات والذي اريده : اريد جعل الاداة الثانية مساوية ببيانات الاداة الاولى

ما هو الكود لذلك

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2 
Dim X As Long

List2.Clear
For X = 0 To List1.ListCount - 1
	List2.AddItem List1.List(X)
End List

ومش هتكلم عن موضوع البحث !!!

ربنا يوفقق

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3

شكرا اخي على هذا الكود

الله يوفق

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#4 
For X = 0 To List1.ListCount - 1

يمكن جعله كده , للتوضيح وعدم اللبس يعني

For X = 1 To List1.ListCount
اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#5
Ala2 VB كتب:
For X = 0 To List1.ListCount - 1

يمكن جعله كده , للتوضيح وعدم اللبس يعني

For X = 1 To List1.ListCount

هى ممكن يا اخى العزيز علاء لكنها مش دقيقة لأنك لو راجعت الكود هاتلاقى انة بيحدد المكان الحالى لل index بالقيمة x

وقيمة index بتبدأ ب 0 فلو استعملنا طريقتك هانضيع اول index لاننا هانبدأ بواحد مش صفر

تم تعديل هذه المشاركة بواسطة ramysarwat في 6 مارس 2008 في 10:39

http://www.hostingcore.net
#6
MMA_EG_Cairo كتب:
Dim X As Long

List2.Clear
For X = 0 To List1.ListCount - 1
	List2.AddItem List1.List(X)
End List

للدقة أضف السطر التالى
Dim X As Long

List2.Clear
For X = 0 To List1.ListCount - 1
	List2.AddItem List1.List(X)
	List2.ItemData(X) = List1.ItemData(X)
Next X

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

مواضيع مشابهة