ارسال رشته به جای نام کنترل

[shsoft]

با سلام
اگر از یک کنترل چند نمونه داشته باشیم مثلا Check1 تا Check10 حالا برای تست
کردن مقدار هر کنترل باید یک دستور شرطی نوشته شود که جمعا 10 تا دستور شرطی
می شود.
چگونه می توان با یک حلقه و یک دستور شرطی مقدار کنترل ها رو چک کرد.

به عبارت دیگر شبه کد زیر را چگونه می توان در وی بی نوشت:

for i=1 to 10
print check & i.value
next

با تشکر

[کم حوصله]

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

ّFor i=0 to 10
Print Check1(i).Value
Next

[shsoft]

از کم حوصله که واقعا همیشه جوبگوی بچه ها هستند متشکرم

مشکل من در خصوص این برنامه حل شد راه حل شما واقعا عالی بود.

ولی می خواستم بدونم آیا وی بی چنین امکانی رو داره یا نه
مثلا درون متغیر x نام یک فرم است:
x as string
x.show
مثلا در فاکس تحت داس می تونستیم با آوردن & پشت هر متغیر محتوای اون رو معنی کنیم
x=form1
x.show&

[shsoft]

بابا یکی جواب بده دیگه

یک مثال دیگه

for i= 1 to 10
Recordset!m & i=i
next

[کم حوصله]

Dim Cnt1 As Control
Dim Cnt2 As CheckBox

For Each Cnt1 In Form1
If TypeOf Cnt1 Is CheckBox Then
Set Cnt2 = Cnt1
If Cnt2.Name = "Name" Then
....
End If
End If
Next

[کم حوصله]

یک راه حل دیگه هم داره که از طریق نام شی را کنترل کرد که الان یادم نیست یادم که اومد برات میزارم :oops: