السلام عليكم
لدي سؤال
اذا كان لدي مثلا 10 label واريد ان اضع فيهم قيم .. فكيف يمكنني ان اجعل labelتكون علي شكل مصفوفه اي ارقام الليبل تتغير تبعا لتغير قيم i مثلا
for i=1 to 10
label(i).text =i
هذا الكود ليس صحيح برمجيا ولكن لتوضيح الفكره فقط
وشكرا
السلام عليكم
لدي سؤال
اذا كان لدي مثلا 10 label واريد ان اضع فيهم قيم .. فكيف يمكنني ان اجعل labelتكون علي شكل مصفوفه اي ارقام الليبل تتغير تبعا لتغير قيم i مثلا
for i=1 to 10
label(i).text =i
هذا الكود ليس صحيح برمجيا ولكن لتوضيح الفكره فقط
وشكرا
هذه الخاصية كانت موجودة حتى vb وكانت تسمى control array
ولم تعد موجودة فى الدت نت
شكرا جزيلا على الرد
ولكن كيف يمكن عملها بالدوت نت فانا محتاج لها ضروري
فهل من طريقه اخرى تمكنني من عملها
اذا كنت تعمل على 2003 فأنا آسف لانها غير موجودة
اما في 2005 فقد عادت من جديد وسهلة جدا
فقط اضف Label وبعدين تلاحظ في قائمة Properteis( آخر شي تحت ) لنك بعنوان Create new control array
اضغط عليه راح يطلع لك اسفل الصفحة كنترول جديد ممكن تضيف له Label آخر
>> تجارب برمجية <<
[/وسط][/وسط][/وسط]
شكرا جزيلا اخي scoool على الرد
وكن للاسف الشديد انا اعمل على 2003 وياخساره
وكني لااستطيع ان احول الى2005 لانني اعمل بها في مشروع التخرج ولايوجد وقت للتحويل
ولكن هل توجد من طريقه اخري فهل يعقل ان تكون الفيجوال بيسك 6 فيها و2003 لاتوجد فيها
فهل من حل ساعدووني
شكرا
انا عندى الحل انتا تعمل الاتى
iF label1="" then label1="Ahmed"
iF label2="" then label2="Ahmed"
iF label3="" then label3="Ahmed"
iF label4="" then label4="Ahmed"
iF label5="" then label5="Ahmed"
iF label6="" then label6="Ahmed"
iF label7="" then label7="Ahmed"
iF label8="" then label8="Ahmed"
iF label9="" then label9="Ahmed"
iF label10="" then label10="Ahmed"
دخل كل الاومر ده داخل Timer وشغله وقت ما انتا عوز قده انتا عملت Loop يعبى مخصوص و ممكن تبنى احتمالات تنيه و هكذا
بسم الله الرحمن الرحيم
جرب هذا الكود
يتم هذا التعرف فى الجزء العام من الفورم
dim labl(10) as label
يتم اضافة هذا الكود فى الحث form load
labl(1) =label1
labl(2)=label2
labl(3)=label3
labl(4) =label4
labl(5) =label5
labl(6) =label6
labl(7) =label7
labl(8) =label8
labl(9) =label9
labl(10) =label10
الكود التالى فى أى حدث تحدده
for i= 1 to 10
labl(i).text =i
next i
شكرا جزيلا للاخوه has_1975 و MostafaAlpha على المساعده وشكرا لهذا المنتدى الرائع .... :)
بالنسبه للاخ has_1975 جربت الكود واشتغل معاي تمام مشكور جدا فانا ممتن لك كثيرا فقد كنت بامس الحاجه لهذا الكود
اما بالنسبه للاخ MostafaAlpha فانا لم افهم الكود جيدا ارجو ان توضح لي الفكره اكثر لكي استفيد
بس يا سيدى لو فرضنا عملنا مصفوفه فيها 10 ارقام = عشرمربعات عنوان يعنى اه الكلام ده
Dim X(10) as string
iF label1="" then label1=X(1)
iF label2="" then label2=X(2)
iF label3="" then label3=X(3)
iF label4="" then label4=X(4)
iF label5="" then label5=X(5)
iF label6="" then label6=X(6)
iF label7="" then label7=X(7)
iF label8="" then label8=X(8)
iF label9="" then label9=X(9)
iF label10="" then label10=X(10)"
يعنى اصبح ممكن تكلم كل مربع نص من حيث القيمة الجواه من خلال المصفوفه X يعنى ممكن تملى اكس باى قيمة فى اى وقت و مربعات العنوان سوف تتاثر فورا مع تغير كل قيمة من قيم X فهمتنى يعنى انتا ممكن تعمل حاجا جمده ازى انك وانتا بتعرف المصفوفه بدل ما تقول
Dim X(10) as string
لا
ده ناتا ممكن تعرفه على مستوى المشروع عن طريق انك تعمل موديول وتكتب جواه
Public X(10) as string
ههههههههههههههههههههه يعنى كده انتا مش حتكلم مربعات العنوان من مكانو واحد فى المشورع من اى فورم تعجبك مجرد اما تكتب
X() على قيمة اكس تروح لمربع العناون فورا القيمة لان انتا كاتب جوا Timer و التيمر شغال طول الوقت فهمتنى
هذا الموضوع مغلق.