مقدار دهی تعداد زیادی کنترل با هم (فوری)

[mohsengrisly]

با سلام خدمت دوستان
من می خوام تعداد زیادی کنترل (حدود 400 تا )را با هم و هم زمان مقدار دهی کنم
به عنوان مثال caption حدود 400 تا label را از 1 تا 400 نام گذاری کنم
دنبال یه راه خیلی کوتاه و خوب می گردم
خیلی از توجه شما ممنونم

[sadegi]

با عرض سلام
به نظر من بهترین راه استفاده از آرایه است
بعد از این که label ها رو به صورت آرایه تعریف کردی با کد زیر میتونی براحتی اون ها رو مقدار دهی کنی
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 399
Label1(i).Caption = i
Next
End Sub

[SH_Zahra]

بالایی خیلی جالب بود آفرین

[PalizeSoftware]

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


dim obj as Object
For each obj in Controls
if typeof Obj is Label then
Obj.Caption="Test"
End If
Next

[SH_Zahra]

آقای پالیز گل
در این قسمت به من ارور میده
if type ofObj is Label then

[PalizeSoftware]

پست قبلی رو ویرایش کردم دوباره ببینید

[SH_Zahra]

بالایی کاملا درسته حالا جواب داد فاصله بینif typeof Obj is Label then

مرسی ممنونم ......آفرین خیلی خوبه (شکلک: دست)