مشکل در تعداد کنترل های زیاد

[parisa_vb]

سلام...به یه مشکل ساده خوردم..شرمنده که این سوال رو میپرسم
راستش من حدود 20 تا command buttom دارم واسه اینکه تک تک پنهانشون نکنم مجبور شدم از یکی کپی بگیرم و paste کنم که به صورت تعدادی ایندکس در اومد

command1(0).visible=show
.
.
.
command1(20).visible=show

حالا مشکل اینه که نمیتونم واسه هرکدوم مجزا کدنویسی کنم رو هر کدوم که کلیک میکنم مثل این میمونه که رو یکی همش دارم کلیک میکنم..
کمک کنید..\(emergency)

[vahid_d_0101]

خوب یه دستور شرطی میزاری (در این جور مواقعی Index هعر کلید فرق داره یعنی وقتی رو کلید اولی کلید میکنی Index برابر 0 میشه و دومی 1 و.... با دستور شرطی میتونی راحت برنامه رو بنویسی

[vahid_d_0101]

Private Sub Command1_Click(Index As Integer)
if Index = 0 then .....
if Index = 1 then .....
if Index = 2 then .....
End Sub

[Alisalari]

سلام
واسه اينكه براشون جداگانه كد نويسي كني بايد ايندكس ها شون رو پاك كني و براي اينكه ايندكس هاشون رو پاك كني بايد حتما اول اسماشون رو تغيير بدي و بعد ايندكس هر كدوم رو پاك كني ، حالا هر كدوم جداگانه كاملا" در خدمت شما هستند .

[VB.SOS]

1- شما براي اين كه تعداد مشخصي رو روشون كار معيني رو انجام بديد از حلقه For....Next استفاده كنيد.

2- براي اين كه تشخيص بديد روي كدوم دكمه كليك شده از ساختار Selelct Case به شكل زير استفاده كنيد:

Private Sub Buttons_Click(Index As integer)

   Selelct Case Index

 case 1

...

Case 2

...

end Select   

وقتي اين تاپيك رو باز كردم ديدم پاسخ ها صفرتا هستن وقتي فرستادن پاسخ رو زدم ديدم 5 تا پست فرستاده شده. در نظر بگريد كه محيط OnLine هستش

[r0ot$harp]

دوست عزیز از این کد هم می تونی استفاده کنی .

Private Sub Command1_Click(Index As Integer)



    Select Case Index



        Case 1



        Case 2



        Case 3



        Case 4



        Case 5



        Case 6



        Case 7



        Case 8



        Case 9



        Case 10



        Case 11



        Case 12



        Case 13



        Case 14



        Case 15



        Case 16



        Case 17



        Case 18



        Case 19



        Case 20



    End Select



End Sub



Private Sub Form_Load()



    For i = 1 To Command1.Count -1



        Command1(i).Visible = True



    Next i



End Sub

باتشکر احسان