在 vb.net 中,我有一个包含一组四个复选框的表单。每个复选框都表示(选中时)用户想要向其订单添加特殊指令。代码如下所示:
If SpecialInstruction1CheckBox.Checked Then
AddSpecialInstruction(SPECIAL_INSTRUCTION_1_String)
End If
If SpecialInstruction2CheckBox.Checked Then
AddSpecialInstruction(SPECIAL_INSTRUCTION_2_String)
End If
If SpecialInstruction3CheckBox.Checked Then
AddSpecialInstruction(SPECIAL_INSTRUCTION_3_String)
End If
If SpecialInstruction4CheckBox.Checked Then
AddSpecialInstruction(SPECIAL_INSTRUCTION_4_String)
End If
我有一种感觉,这段代码不必要地冗长,感觉重复,可以简化。我将如何去做这件事,或者这并不像我感觉的那样“错误”?
第一个问题是您的特殊指令不应存储在单独的变量中。它们应该存储在数组或其他类型的列表中。然后你可以通过索引访问它们(例如specialInstructions(1)
).
然后您可以按索引循环遍历复选框,如下所示:
For i As Integer = 1 to 4
Dim box As CheckBox = DirectCast(Me.Controls("SpecialInstruction" & i.ToString() & "CheckBox"), CheckBox)
If box.Checked Then list.Add(specialInstructions(i))
Next
或者,您可以将对复选框的引用存储在数组中,然后更轻松地循环它们,例如:
Dim checkBoxes() As CheckBox = {
SpecialInstruction1CheckBox,
SpecialInstruction2CheckBox,
SpecialInstruction3CheckBox,
SpecialInstruction4CheckBox}
' ...
For i As Integer = 0 to checkBoxes.Length - 1
If checkBoxes(i).Checked Then list.Add(specialInstructions(i))
Next
另一种选择是将特殊指令存储在Tag
每个复选框的属性,那么您可以从控件中检索值,如下所示:
For Each i As CheckBox In checkBoxes
If i.Checked Then list.Add(i.Tag)
Next
但只有当您不需要在代码中的其他地方重用这些特殊指令值时,这才有意义。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)