作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的意图是在选择新的单选按钮时清除计算标签。目前,我正在使用 7 个单独的点击事件调用相同的子过程,如下所示:
' the following 7 subprocedures clear totals boxes if any radio button is changed
Private Sub rbCappuccino_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbCappuccino.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbChocolate_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbChocolate.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbFilled_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbFilled.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbGlazed_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbGlazed.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbNone_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbNone.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbRegular_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbRegular.CheckedChanged
Call ClearLabels()
End Sub
Private Sub rbSugar_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbSugar.CheckedChanged
Call ClearLabels()
End Sub
我很好奇是否有一种方法可以合并这些事件,因为它们都调用完全相同的子过程。任何意见,将不胜感激。谢谢!
最佳答案
是的,您可以将多个事件附加到一个事件处理程序:
Private Sub CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbCappuccino.CheckedChanged, rbChocolate.CheckedChanged, rbFilled.CheckedChanged, rbGlazed.CheckedChanged, rbNone.CheckedChanged, rbRegular.CheckedChanged, rbSugar.CheckedChanged
Call ClearLabels()
End Sub
在这样的代码中,您甚至可以检测到哪个 CheckBox 调用了事件来作用于各个控件:
If CType(sender, CheckBox).Text = "Cup of Java" ....
关于vb.net - 视觉基础 : is there a way to consolidate 7 click-events that call the same sub procedure?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17983877/
我是一名优秀的程序员,十分优秀!