كود جميل للتعامل مع RadioButton

جزاك الله خير أخى أبوأنس على هذا الكود الجميل والمفيد لنا :rolleyes:

اخونا الكريم ابوأنس

عذرا لاني مبتدئ دوت نت و احاول ان اتعلم من مشاركات الاعضاء

كيف استفيد من هذا الكود و تحت اى حدث

Dim Num as Integer =SelectedRadioButton

تحياتي اخي الفاضل

شكرا للجميع على التفاعل

الفكرة ببساطة يا اخ gaf58 هي عبارة عن جمع اجرائين بإستخدام الخصائص Properties

الاجراء الاول هو اجراء سحب القيمة

Public Function GetSelectedRadioButton () as Integer 
           If rbtn1.Checked = True Then Return 1
           If rbtn2.Checked = True Then Return 2
           If rbtn3.Checked = True Then Return 3
           Return Nothing
End Function

الاجراء الثاني هو اجراء وضع القيمة

Public Sub SetSelectedRadioButton(ByVal Value As Integer)
           If Value = 1 Then rbtn1.Checked = True
           If Value = 2 Then rbtn2.Checked = True
           If Value = 3 Then rbtn3.Checked = True
           If Value = Nothing Then
               rbtn1.Checked = False
               rbtn2.Checked = False
               rbtn3.Checked = False
           End If
End Sub

فجمعناهما في Property واحد بالشكل التالي

Private Property SelectedRadioButton() As Integer

       Get
           If rbtn1.Checked = True Then Return 1
           If rbtn2.Checked = True Then Return 2
           If rbtn3.Checked = True Then Return 3
           Return Nothing
       End Get

       Set(ByVal Value As Integer)
           If Value = 1 Then rbtn1.Checked = True
           If Value = 2 Then rbtn2.Checked = True
           If Value = 3 Then rbtn3.Checked = True
           If Value = Nothing Then
               rbtn1.Checked = False
               rbtn2.Checked = False
               rbtn3.Checked = False
           End If
       End Set
   End Property

وليس له علاقة بأي حدث

بوركت اخونا الكريم

هذا الشرح الجميل قريب جدا من البيزك 6 الذى افهم فيه بعض الشئ

اكرر شكرى و امتناني