VB.Net调用此函数的最佳方法？

Question

使用下面的代码，调用第二个函数（Checkbox1.CheckedChanged）的最佳方法是什么？ 我尝试使用（sender，e），但是每次程序完成安装后，它都会连续调用App2.msi，并在尝试重复安装App2.msi时将程序置于连续循环中。 （）”，但我的代码无法编译。

我对VB还是很陌生，所以我不确定是否应该以不同的方式调用msi，或者我是否还不了解该如何调用这样的名称。 如果有人需要更多详细信息，请告诉我！ 谢谢！

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim p1 As New Process
    p1 = System.Diagnostics.Process.Start("App1.msi")
    p1.WaitForExit()
    CheckBox2.Checked = True
    Label2.Visible = True

Call CheckBox1_CheckedChanged()

End Sub

Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

End Sub


Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    Dim p1 As New Process
    p1 = System.Diagnostics.Process.Start("App2.msi")
    p1.WaitForExit()
    CheckBox1.Checked = True
    Label3.Visible = True
End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

End Sub
End Class

Answer 1

正确的方法是：根本不要调用它！ 这是一个事件处理程序 ，不应该由您调用。

如果该方法包含要在某些情况下手动调用的代码，请将其移至由 CheckBox1_CheckedChanged和您的其他代码调用的单独方法。

此外，该注释是正确的：如果更改CheckBox1.Checked ，它将再次调用事件处理程序–您将获得无限循环。

Answer 2

在下面试试

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    Dim oSender as CheckBox = DirectCast(sender,CheckBox)
    If oSender.Checked then
        Dim p1 As New Process
        p1 = System.Diagnostics.Process.Start("App2.msi")
        p1.WaitForExit()
        Label3.Visible = True
    End If
End Sub