Question

当按钮获得焦点时，我有以下代码来更改背景颜色：

Private Sub Btn_GotFocus(sender As Object, e As EventArgs) Handles Btn_ShowSummary.GotFocus, Btn_ToolTip.GotFocus, Btn_ShowHideTbl.GotFocus
    If CType(sender, Button).Name = "Btn_ShowHideTbl" Then Stop 'Here never stops
    If CType(sender, Button).Name = "Btn_ToolTip" Then Stop 'Here stops
    CType(sender, Button).BackColor = Color.AliceBlue
End Sub

Private Sub Btn_LostFocus(sender As Object, e As EventArgs) Handles Btn_ShowSummary.LostFocus, Btn_ToolTip.LostFocus, Btn_ShowHideTbl.LostFocus
    If CType(sender, Button).Name = "Btn_ShowHideTbl" Then Stop 'Here stops!!
    CType(sender, Button).BackColor = Me.BackColor
End Sub

如注释代码所示，颜色只会改变三个按钮中的两个。

我在Btn_ShowHideTbl.GotFocus被解雇时添加了一些代码来拦截，但代码从未停止过因此，当Btn_ToolTip.GotFocus被触发并且代码在此停止时，我添加了其他代码来拦截然后，当Btn_ShowHideTbl.LostFocus被触发并且代码在此停止时，我添加了其他代码来拦截。

我想指出Btn_ShowHideTbl的唯一其他代码是点击事件。

我无法确定发生了什么。

修改
我尝试删除并重新添加按钮，我注意到Btn_ShowHideTbl已自动从子Handles中的LostFocus中移除，而在Handles的子GotFocus中用红色加下划线if ($result = $conn->query($sql)) { ///value returns not-false, $numRows = $result->num_rows; ... } else { //there is a problem with your SQL }。

我不知道这意味着什么，但这个

有问题

编辑2
按下3代码后，代码正常工作这可能是Visual Studio自动化的一些错误......

事件Button.GotFocus没有被解雇

0 个答案: