您好！麻烦帮我看下触发事件

[mxmkeep]

您好！
我想在每个小textbox（如图）都写入如下代码：

Dim KeyAscii As Short = Asc(e.KeyChar)
        If KeyAscii = 13 Then
            SendKeys.Send("{TAB}")
        End If
        If In_Int(KeyAscii) = False Then
            KeyAscii = 0
        End If
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If

因为总共有30个textbox，一个个copy代码量太多？
请问是不是可以写个触发事件（因为我还是学生，还没写过类似的）
可以的话该怎么写？谢谢了！

[mxmkeep]

上面代码我是写在textbox的keypress事件中

[mxmkeep]

等待中...

[mxmkeep]

忘记了，贴上In_Int函数代码：

' 只接受数字输入
    Private Function In_Int(ByRef KeyAscii As Short) As Boolean
        Dim i As Integer
        Dim Ch_Accept_Int(20) As String     ' 可以接受字符数组
        Ch_Accept_Int(0) = "0"
        Ch_Accept_Int(1) = "1"
        Ch_Accept_Int(2) = "2"
        Ch_Accept_Int(3) = "3"
        Ch_Accept_Int(4) = "4"
        Ch_Accept_Int(5) = "5"
        Ch_Accept_Int(6) = "6"
        Ch_Accept_Int(7) = "7"
        Ch_Accept_Int(8) = "8"
        Ch_Accept_Int(9) = "9"
        Ch_Accept_Int(10) = Chr(8)

        ' 检查输入的字符是否在数组中
        In_Int = False
        For i = 0 To 10
            If Chr(KeyAscii) = Ch_Accept_Int(i) Then
                In_Int = True
            End If
        Next
    End Function

[gba8jing]

写个 类 吧, 把 TEXTBOX 以对象 形式传递到类里的过程处理

[mxmkeep]

gba8jing，您好！
抱歉，我还没编写过类似的类，您能简单的写下么？

[yanlongwuhui]

参考如下：
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress，TextBox3.KeyPress,....... 所有需要这段代码的TEXTBOX的KeyPress事件都写这里，中间逗号隔开
' 你的代码
End Sub

[sunxinyu]

建议用控件数组，简单，对你的应用也适合