مقدار دهی به ابجکتهای متعدد

[monboy]

سلام دوستان
کسی میدونه چطور .....
من تعداد زیادی لیبل روی فرم دارم فرضا 100 تا
و مقدار text هر لیبل با لیبل دیگه فرق داره
مقدار هر لیبل رو میشه توی یه آرایه قرار داد اگه 100 تا لیبل داشته باشیم مقدار text لیبل ها رو میشه توی ارایه ی 100 تایی قرار بدیم
و اگه بخواییم مقدار لیبل هر text رو از ارایه مربوطه بخونیم اینجوری میشه


label1.text=strarray(1)

label2.text=strarray(2)
label3.text=strarray(3)

label4.text=strarray(4)

label5.text=strarray(5)

label6.text=strarray(6)
.

.

.

.

و همینطور الی اخر
سوالم اینه چطور میشه به جای اینکه تک تک اینکار رو انجام بدیم بیاییم توی یک حلقه قرار بدیم و به جای اعداد موجود i رو قرار بدیم
یه چیزی مثل کد زیر

for i=1 to 100
label(i).text=strarray(i)
next

ممنون میشم اگه کسی جواب رو بگه

[Mani_rf]

سوالت رو خیلی خوب مطرح نکردی اما شما میتونی خود لیبل رو درون یک آرایه بریزید و در هر زمان که خواستید هرکدوم از خواص مد نظر رو از اون لیبل بخوند.
برای راه دوم هم باید با یک For...Each این کار رو انجام بدین که اگر کمی جستجو کنید بار ها و بارها نمونه هایی برای انجام این کار در انجمن قرار داده شده.

[مهرداد صفا]

با سلام و عرض تسلیت به مناسبت شهادت سرور شهیدان و آزاد مردان
میتوانید برای گرفتن text لیبلها به این صورت عمل کنید:

Dim labels = From control In Me.Controls Where TypeOf (control) Is Label Select control.text, control.name

البته ما نام لیبلها را هم گرفته ایم که هنگام مقدار دهی به این صورت عمل کنیم:

'هنگام مقدار دهی
For Each label In labels
Me.Controls.Find(label.name, True)(0).Text = label.text
Next