我有一個3單選按鈕,控制幾個文本框的狀態,我使用一個事件的所有3個按鈕,但控制文本框的部分看起來像它可流更加林立......必須有一個更好的方式來處理這個事件,然後我有什麼可能使這個事件DRY'er,指導與重構
Private Sub rdo_SkipBitLockerY_CheckedChanged(sender As RadioButton, e As EventArgs) Handles rdo_SkipBitLockerY.CheckedChanged, rdo_SkipBitLockerN.CheckedChanged, rdo_SkipBitLockerU.CheckedChanged
Select Case sender.Name
Case "rdo_SkipBitLockerY"
txt_BDEDriveLetter.Enabled = True
txt_BDEDriveSize.Enabled = True
txt_BDEInstall.Enabled = True
txt_BDEInstallSuppress.Enabled = True
txt_BDERecoveryKey.Enabled = True
txt_TPMOwnerPassword.Enabled = True
txt_OSDBitLockerStartupKeyDrive.Enabled = True
txt_OSDBitLockerWaitForEncryption.Enabled = True
AttributeRDOTable("SkipBitLocker") = "YES"
Case "rdo_SkipBitLockerN"
txt_BDEDriveLetter.Enabled = False
txt_BDEDriveSize.Enabled = False
txt_BDEInstall.Enabled = False
txt_BDEInstallSuppress.Enabled = False
txt_BDERecoveryKey.Enabled = False
txt_TPMOwnerPassword.Enabled = False
txt_OSDBitLockerStartupKeyDrive.Enabled = False
txt_OSDBitLockerWaitForEncryption.Enabled = False
AttributeRDOTable("SkipBitLocker") = "NO"
Case Else
txt_BDEDriveLetter.Enabled = False
txt_BDEDriveSize.Enabled = False
txt_BDEInstall.Enabled = False
txt_BDEInstallSuppress.Enabled = False
txt_BDERecoveryKey.Enabled = False
txt_TPMOwnerPassword.Enabled = False
txt_OSDBitLockerStartupKeyDrive.Enabled = False
txt_OSDBitLockerWaitForEncryption.Enabled = False
AttributeRDOTable.Remove("SkipBitLocker")
End Select
我能做些什麼,使這個少囉嗦?