鼠标悬停在

Question

我有六个按钮

按下一个按钮后，例如按下设置，按下该按钮后按下该按钮将打开一个新窗口。

以下是设置按钮代码：

  Private Sub btn_SETTINGS_MouseEnter(sender As System.Object, e As System.EventArgs) Handles btn_SETTINGS.MouseEnter
    btn_SETTINGS.ForeColor = Color.White

End Sub

Private Sub btn_SETTINGS_MouseLeave(sender As System.Object, e As System.EventArgs) Handles btn_SETTINGS.MouseLeave
    btn_SETTINGS.ForeColor = SystemColors.HotTrack




End Sub
Private Sub btn_SETTINGS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SETTINGS.Click
    OpenSettings()
End Sub

有什么建议我可以做些什么来解决这个问题。

Answer 1

好的，这个问题似乎与Focus有关，当你按下按钮时它被设置为按钮。非常容易和快速解决这个问题，将控制焦点改为其他控件。同样，添加一个label类似Hidden类型的lblHidden控件。因此，当您执行以下代码时，请更改焦点。

Private Sub btn_SETTINGS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SETTINGS.Click
    OpenSettings()
    Me.ActiveControl = lblHidden 
End Sub

这会将焦点更改为隐藏控件。但是，如果您在单击事件上对按钮进行任何格式更改，则将其还原为上面的even.t

中的原始文件