Printable View
سلام...به یه مشکل ساده خوردم..شرمنده که این سوال رو میپرسم:خجالت::خجالت:
راستش من حدود 20 تا command buttom دارم واسه اینکه تک تک پنهانشون نکنم مجبور شدم از یکی کپی بگیرم و paste کنم که به صورت تعدادی ایندکس در اومد
command1(0).visible=show
.
.
.
command1(20).visible=show
حالا مشکل اینه که نمیتونم واسه هرکدوم مجزا کدنویسی کنم رو هر کدوم که کلیک میکنم مثل این میمونه که رو یکی همش دارم کلیک میکنم..
کمک کنید..\(emergency)
خوب یه دستور شرطی میزاری (در این جور مواقعی Index هعر کلید فرق داره یعنی وقتی رو کلید اولی کلید میکنی Index برابر 0 میشه و دومی 1 و.... با دستور شرطی میتونی راحت برنامه رو بنویسی
Private Sub Command1_Click(Index As Integer)
if Index = 0 then .....
if Index = 1 then .....
if Index = 2 then .....
End Sub
سلام
واسه اينكه براشون جداگانه كد نويسي كني بايد ايندكس ها شون رو پاك كني و براي اينكه ايندكس هاشون رو پاك كني بايد حتما اول اسماشون رو تغيير بدي و بعد ايندكس هر كدوم رو پاك كني ، حالا هر كدوم جداگانه كاملا" در خدمت شما هستند . :لبخندساده:
1- شما براي اين كه تعداد مشخصي رو روشون كار معيني رو انجام بديد از حلقه For....Next استفاده كنيد.:قهقهه:
2- براي اين كه تشخيص بديد روي كدوم دكمه كليك شده از ساختار Selelct Case به شكل زير استفاده كنيد::قهقهه:
Private Sub Buttons_Click(Index As integer)
Selelct Case Index
case 1
...
Case 2
...
end Select
وقتي اين تاپيك رو باز كردم ديدم پاسخ ها صفرتا هستن وقتي فرستادن پاسخ رو زدم ديدم 5 تا پست فرستاده شده. در نظر بگريد كه محيط OnLine هستش:چشمک::متفکر:
دوست عزیز از این کد هم می تونی استفاده کنی .
باتشکر احسان
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