如何创建 class 来检查按键

Question

我已经成功创建了检查按键的代码，但我的问题是， 我希望它位于 class 中，以便我也可以以其他形式重用它。 我该怎么做呢？ 这是代码：

Private Sub money_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles money.KeyPress
    Dim allowedChars As String = "0123456789" + vbBack
    If allowedChars.IndexOf(e.KeyChar) = -1 Then
        ' Invalid Character
        e.Handled = True
    End If
End Sub

假设 money 是文本框的名称。 我也想以其他形式调用此函数。如何传递所需的变量等

Answer 1

改成Public:

Public Sub money_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
    Dim allowedChars As String = "0123456789" + vbBack
    If allowedChars.IndexOf(e.KeyChar) = -1 Then
        ' Invalid Character
        e.Handled = True
    End If
End Sub

在表格 2 中：

Public Sub form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles form2.KeyPress 
    Form1.money_KeyPress(sender, e)
End Sub