5

我正在努力理解这些论点。
它们是自动生成的，我不需要考虑太多，但如果我想从表单的其他部分调用这些事件之一，那么我需要为这些参数提供值 - 这并不容易，因为我仍然不确定他们的意思。

这是我想参加的活动Call：

Private Sub stringButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stringButton.Click
    Dim outString As String
    Select Case stringTextBox.Text
        Case ""
            outString = "You entered an empty string"
        Case "10"
            outString = "10"
        Case Else
            outString = "Your string is not covered by the cases"
    End Select
    strResultTextBox.Text = outString
End Sub

下面是调用方法：

Private Sub stringTextBox_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles stringTextBox.KeyDown
    If e.KeyCode = Keys.Enter Then
        Call stringButton_Click(Me, Me) '<<(Me,Me) is my incorrect attempt
    End If
End Sub

我应该使用什么论据，为什么？

4

4 回答 4

9

不要从代码的其他部分调用事件处理程序！这是非常草率的编码。使用您需要的参数创建一个单独的方法来满足您的需要，并从事件处理程序和表单的任何其他部分调用它，例如

Private Function String GetResponseMessage(ByVal input as String)
    Select Case input
        Case ""
            Return "You entered an empty string"
        Case "10"
            Return "10"
        Case Else
            Return "Your string is not covered by the cases"
    End Select
End Function

Private Sub stringButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stringButton.Click
    Dim outString As String=GetResponseMessage(stringTextBox.Text)
    strResultTextBox.Text = outString
End Sub

sender和e参数是事件处理程序的标准签名。Sender 是引发事件的对象，e包含事件的数据。.NET 中的所有事件都包含此类参数。

EventArgs是所有事件参数的基类，对事件没有多说。一些事件使用派生类来提供更多数据，例如。KeyPress事件使用KeyEventArgs 类，该类包含在其KeyChar属性中按下的实际键。

这是基本的 .NET 编程内容，您应该花一些时间了解 .NET 事件和 Windows 窗体，而不是相信自动生成的代码

于 2012-12-18T09:13:11.643 回答
3

Sender 用于指定哪个对象产生了事件，e 是事件数据本身。例如，通常当您单击表单中的按钮时，“发送者”将是按钮，而 e 将是鼠标事件。

在你的情况下，你可以简单地改变

Call stringButton_Click(Me, Me)

到

Call stringButton_Click(Nothing, EventArgs.Empty)
于 2012-12-18T09:10:35.987 回答
1

您可以通过创建一个新方法来做到这一点。不要调用事件处理程序。

Public sub abcd()
Dim outString As String
Select Case stringTextBox.Text
    Case ""
        outString = "You entered an empty string"
    Case "10"
        outString = "10"
    Case Else
        outString = "Your string is not covered by the cases"
End Select
strResultTextBox.Text = outString
end sub

从你想要的地方调用这个方法

Private Sub stringButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stringButton.Click
abcd()
End Sub

并由此

Private Sub stringTextBox_KeyDown(ByVal sender As System.Object, ByVal e As 
 System.Windows.Forms.KeyEventArgs) Handles stringTextBox.KeyDown
If e.KeyCode = Keys.Enter Then
    abcd()
End If
End Sub
于 2012-12-18T09:23:01.060 回答
1

如上所述，最好将您的代码移动到一个单独的函数中，但这里有一个解决方法： call stringButton_Click(Nothing,Nothing)

于 2017-03-21T14:48:54.080 回答