24-01-17, 01:42 AM
ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub

