PDA

View Full Version : قرار دادن متغیر به جای نام (مثلا ( command button(command(i



esikhatar
سه شنبه 05 بهمن 1389, 19:22 عصر
سلام
من یه برنامه دارم مینویسم که توش چند تا ارایه کنترلی دارم مثل

command(i)

حالا من میخوام این ارایه هارو بذارم تو دو تا حلقه for
اینجوری

for i= 1to 4
for j= 1 to j
command(i)(j)

یعنی یکی از حلقه ها شماره command رو مشخص کنه و اون یکی شماره ارایه رو!
امکان چنین کاری وجود داره؟؟
لطفا راهنماییم کنین!

vbhamed
چهارشنبه 06 بهمن 1389, 06:48 صبح
سلام

كنترلهاي آرايه اي فقط يك دونه انديس مي تونن داشته باشن
ضمنا كلمه command هم يك كلمه رزرو شده است و پارامترهاي ارسالي هنگام اجراي فايل exe را در خودش ذخيره مي كنه پس نمي تونه به عنوان نام انتخاب بشه

البته يك راه وجود داره
آرايه اي از نوع Object يا CoomandButton با ابعاد دلخواه تشكيل بدين
عناصر آرايه رو به Command Button هاي مورد نظر نسبت بدين مثال :


Dim cmd(10, 10) As CommandButton

Set cmd(0, 0) = Command1(0)
Set cmd(0, 1) = Command1(1)
Set cmd(0, 2) = Command1(2)

Set cmd(1, 0) = Command2(0)
Set cmd(1, 1) = Command2(1)
Set cmd(1, 2) = Command2(2)

cmd(1, 2).Caption = "111111"