主题：[求助]是不是有e参数的事件代码不能作成内部函数

If e.KeyCode = Keys.Space Then '不能用空格
    e.Cancel = True
ElseIf ClipBoard.ContainsText Then '判断剪贴板中有字符
    Dim s As String = ClipBoard.GetText() '返回字符
    If s.Length >= 10 Then
        If e.Control = True AndAlso e.KeyCode = Keys.V Then 'Ctrl+V
            e.Cancel = True '必须先取消，否则直接粘帖
            Args(0).Text = left(s, 10) '再等于第一个字符
        End If
    End If
End If

老师再帮忙看一下，是哪里问题

If Args(0) = Keys.Space Then '不能用空格
    Args(1) = True
ElseIf ClipBoard.ContainsText Then '判断剪贴板中有字符
    Dim s As String = ClipBoard.GetText() '返回字符
    If s.Length >= 10 Then
        If Args(2) = True AndAlso Args(0) = Keys.V Then 'Ctrl+V
            Args(1) = True '必须先取消，否则直接粘帖
            Args(3).Text = left(s, 10) '再等于第一个字符
        End If
    End If
End If

Functions.Execute("_KeyDown", e.KeyCode, e.Cancel, e.Control, e.Form.Controls("TextBox1")) ’没起到作用，MessageBox.Show(Args(0)) ‘这个值返回32

Functions.Execute("_KeyDown", "e.KeyCode", "e.Cancel", "e.Control", e.Form.Controls("TextBox1")) ‘出错

Functions.Execute("_KeyDown", e, e.Form.Controls("TextBox1"))

 感谢老师！非常好! 总结一下代码

Dim e = args(0)
If args(0).KeyCode = Keys.Space Then '不能用空格
    args(0).Cancel = True
ElseIf ClipBoard.ContainsText Then '判断剪贴板中有字符
    Dim s As String = ClipBoard.GetText() '返回字符
    If s.Length >= args(1) Then
        If args(0).Control = True AndAlso args(0).KeyCode = Keys.V Then 'Ctrl+V
            args(0).Cancel = True '必须先取消，否则直接粘帖
            args(0).Sender.Text = left(s, args(1)) '取剪贴板前几个字符
        End If
    End If
End If

’Functions.Execute("_KeyDown", args(0),取前面字符个数, 控件)

Functions.Execute("_KeyDown", e, 10，e.Form.Controls("TextBox1"))

Functions.Execute("_KeyDown", e, 10，e.sender)