14、编程技巧与实践：从按钮事件到网络测试

编程技巧与实践：从按钮事件到网络测试

1. 单点击事件处理多按钮点击

在某些应用程序中，存在一个有趣的技巧，即使用单个 Click 事件来处理多个按钮的点击操作。以下代码展示了如何处理两个布尔值按钮的点击事件：

Protected Sub cbBS1_Click(ByVal sender As _
Object, ByVal e As System.EventArgs) _
Handles cbBS1.Click, cbBS2.Click
    Dim b As Boolean
    Dim aButton As Button
    aButton = CType(sender, Button)
    b = Ini.GetBoolean(SECTIONNAME, aButton.Text, False)
    b = Not b
    Call Ini.WriteBoolean(SECTIONNAME, aButton.Text, b)
    Call ShowINIFileContents()
End Sub

在上述代码中， Handles 子句位于过程声明的末尾，它告知编译器该子过程应作为按钮 cbBS1 和 cbBS2 的 Click 事件被调用。这种功能通常替代了早期 Visual Basic 版本中控制数组的使用。 aButton = Ctype(sender, Button) 这行代码用于确定是哪个按钮被