radiobutton

[hooooman]

سلام
من تو فرمم چندتا radiobutton دارم که بصورت دارد , ندارد دوتا دوتا باهم هستن . اولی با توجه به مقدار 1 فیلد توی جدول true یا false میشه.حالا برای دومی من کد زیرو نوشتم :


PrivateSub RadioButton3_CheckedChanged(ByVal sender AsObject, ByVal e As System.EventArgs) _
Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = FalseThen
RadioButton4.Checked = True
Else
RadioButton4.Checked = False
EndIf
EndSub

حالا مشکل اینه که من 16 تا از این radio button ها دارم (دوتا دوتا باهم یعنی 8 جفت) یعنی باید 8 مرتبه کد بالا تکرار بشه.این راه درستیه؟!!

[amirsajjadi]

با سلام
شما میتونی یک زیر برنامه به این صورت تعریف کنی

PrivateSub Change_Check(ByVal rbt As RadioButton, ByVal next_rbt As RadioButton)
If rbt.Checked = FalseThen
next_rbt.Checked = True
Else
next_rbt.Checked = False
EndIf
EndSub

و به این صورت فراخوانیش کنی

PrivateSub a_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.CheckedChanged
Change_Check(sender,رادیو باتون بعدی که میخوای فعال بشه)
EndSub