如何使用参数调用公共共享子

Question

我有一个 form_click 事件和一个单一类下的 Public Shared Sub。 现在我需要从其他事件中调用这个 Shared Sub。但我在将参数传递给调用 Sub 时遇到问题。

你能不能帮帮我，也解释一下这里发生了什么！

Public Class SC
' More codes here.......

    Public Sub SC_Click(sender As Object, e As EventArgs) Handles Me.Click
        Try

            Dim document As New Document()
            Dim section As Section = document.AddSection()

            'SaveDoc(document)  I WANT TO CALL THIS INSIDE Private Sub SaveToolStripMenuItem_Click

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Shared Sub SaveDoc(document As Document)
        Dim fname = InputBox("Enter file name:", "file name")
        document.SaveToFile(fname & ".docx", FileFormat.Docx)
        MsgBox("""" & fname & ".DOCX"" is saved!")
    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
        'I Want To Call SaveDoc() Here with Params
    End Sub

我尝试将 Sub 更改为共享函数，但问题存在。 请帮我传递参数！

到目前为止，您已经明白这是一个为我自己截屏的工具。 目前，每次点击都会保存 word 文件！

当我从 Form_Click 事件中调用共享的 Sub saveDoc() 时，它工作得非常好。但是我需要将代码分成单独的事件，因为我只想保存文件一次，而不是每次点击。

源代码：

Click HERE to view the source code

IDE 建议：

Click HERE to view the IDE Suggestion

Answer 1

我想你可以在班级级别声明document。现在您的所有类的实例成员都可以访问它，包括事件处理程序。

Public Class SC

    Private document As New Document()

    Public Sub SC_Click(sender As Object, e As EventArgs) Handles Me.Click
        Try
            document = New Document() ' it's unclear whether you need this line here or not
            Dim section As Section = document.AddSection()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Shared Sub SaveDoc(document As Document)
        Dim fname = InputBox("Enter file name:", "file name")
        document.SaveToFile(fname & ".docx", FileFormat.Docx)
        MsgBox("""" & fname & ".DOCX"" is saved!")
    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
        SaveDoc(document)
    End Sub

End Class