غیر فعال کردن option

[amaali20]

با سلام
من در برنامه ام از پاسخنامه 567 سوالی دارم که برای هر سوال آن از دو آپشن استفاده کرده ام و هر جفت آپشن را روی یک فریم قرار داده ام و کد زیر را برای رویداد کلیک نوشته ام
For I = 0 To 567
If Opt1(I).Value = True Then Txtn(I).Text = "1"
Next
حالا می خواهم اگر به سوالی جواب داد و بعد منصرف شد و نخواست به آن سوال جواب بدهد با دبل کلیک روی آپشن مربوطه آن را را غیر فعال کند
کد را بصورت زیر نوشتم ولی همه آپشن های 567 سوال غیر فعال شد
For I = 0 To 567
If Opt2(I).Value = True Then Txtn(I).Text = ""
If Opt2(I).Value = True Then Opt2(I).Value = False
Next
اگر بخواهم فقط آپشن های مربوط به آن سوال غیر فعال شود چه کدی باید بنویسم

[m0hamad_design]

علیک سلام :لبخند:

دوست عزیز شما داری از آرایه استفاده میکنی (چشم بسته غیب گفتم :بامزه:)
و توی حلقه ای که برای غیرفعال کردن آپشن گذاشتی ، همه 567 آپشن رو غیر فعال میکنی

حالا بجای اینکار ، این دوتا روال رو به برنامت اظافه کن :قلب:


'برای آپشن های Opt1
Private Sub Opt1_DblClick(Index As Integer)
Opt1(Index).Value = 0
End Sub


'برای آپشن های Opt2
Private Sub Opt2_DblClick(Index As Integer)
Opt1(Index).Value = 0
End Sub



امیدوارم که منظورتو درست فهمیده باشم :قهقهه:
.: موفق باشی:. :قلب: