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

[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
باتشکر احسان