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

كيفيه عملlabel على شكل مصفوفه

مغلق
بدأه assmb في 24 أبريل 2007 · 8 رد · 889 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي سؤال

اذا كان لدي مثلا 10 label واريد ان اضع فيهم قيم .. فكيف يمكنني ان اجعل labelتكون علي شكل مصفوفه اي ارقام الليبل تتغير تبعا لتغير قيم i مثلا

for i=1 to 10

label(i).text =i

هذا الكود ليس صحيح برمجيا ولكن لتوضيح الفكره فقط

وشكرا

#2

هذه الخاصية كانت موجودة حتى vb وكانت تسمى control array

ولم تعد موجودة فى الدت نت

#3

شكرا جزيلا على الرد

ولكن كيف يمكن عملها بالدوت نت فانا محتاج لها ضروري

فهل من طريقه اخرى تمكنني من عملها

#4

اذا كنت تعمل على 2003 فأنا آسف لانها غير موجودة

اما في 2005 فقد عادت من جديد وسهلة جدا

فقط اضف Label وبعدين تلاحظ في قائمة Properteis( آخر شي تحت ) لنك بعنوان Create new control array

اضغط عليه راح يطلع لك اسفل الصفحة كنترول جديد ممكن تضيف له Label آخر

#5

شكرا جزيلا اخي scoool على الرد

وكن للاسف الشديد انا اعمل على 2003 وياخساره

وكني لااستطيع ان احول الى2005 لانني اعمل بها في مشروع التخرج ولايوجد وقت للتحويل

ولكن هل توجد من طريقه اخري فهل يعقل ان تكون الفيجوال بيسك 6 فيها و2003 لاتوجد فيها

فهل من حل ساعدووني

شكرا

#6

انا عندى الحل انتا تعمل الاتى

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 يعبى مخصوص و ممكن تبنى احتمالات تنيه و هكذا

#7

بسم الله الرحمن الرحيم

جرب هذا الكود

يتم هذا التعرف فى الجزء العام من الفورم

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

#8

شكرا جزيلا للاخوه has_1975 و MostafaAlpha على المساعده وشكرا لهذا المنتدى الرائع .... :)

بالنسبه للاخ has_1975 جربت الكود واشتغل معاي تمام مشكور جدا فانا ممتن لك كثيرا فقد كنت بامس الحاجه لهذا الكود

اما بالنسبه للاخ MostafaAlpha فانا لم افهم الكود جيدا ارجو ان توضح لي الفكره اكثر لكي استفيد

#9

بس يا سيدى لو فرضنا عملنا مصفوفه فيها 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 و التيمر شغال طول الوقت فهمتنى

هذا الموضوع مغلق.

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