VB：如何为计时器/按钮设置快捷键

Question

如何为计时器/按钮设置快捷键，基本上我有两个计时器事件，一个 Timer.Stop 和 Timer.Start。单击切换功能（开始/停止）时，我想创建一个快捷键。请帮忙，我真的需要它。

Answer 1

这是一种捕捉Enter 键的方法。您应该能够扩展概念以实现您想要的。

Public Class Form1
    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Convert.ToChar(13) Then
            MsgBox("You pressed Enter")
        End If
    End Sub
End Class

玩得开心！

---

以下是帮助您处理表单的编辑：

假设您有一个主窗体（“外部窗体”），其中包含一个“子”窗口。我说的是“子”，但它与继承无关，它们只是形式。

现在，即使焦点位于“子”表单上，您也希望“主”表单捕捉到按键。这是实现此目的的忍者式方法。它具有简单的品质，但不是最优雅的。不过，它会按预期工作。

在“主”表单中，您需要以一种允许您使用它的事件和公共事件的方式跟踪“子”表单：

Public Class Main
    'modal variable to keep track of the child form
    Private WithEvents _childForm As Form

    'the rest of your main class goes here
End Class

我不知道您是只有一个子表单还是多个子表单，因此如果您有多个子表单或数量不定，您可以考虑使用列表：

Private _childFormsList As New List(Of Form)

现在，每次打开表单时，都必须更新主表单中的模态变量（我将假设您一次只有一个子表单以使事情变得更容易）：

_childForm = New ChildFormClass()
_childForm.Show()
'or whatever you're doing with the Form

现在，回到之前的这一行：

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress

并从子表单中添加相关事件：

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress, _childForm.KeyPressed

现在这个事件将为两个表单触发。不过，您应该重命名 Sub，因为它不仅会触发 Form1（主窗体，无论您如何命名）。

如果您有其他问题，我会不时闲逛。