Question

我有一个包含3个不同子模块的模块。对于其中两个子项目，我创建了2种不同的形式。第一个表格是文件对话框，我想使用从中选择的文件传递给我的一个模块。同样的事情也适用于另一个模块，在该模块中我创建了FolderBrowswerDialog表单，以便用户可以选择目录来输出合并的pdf（该模块执行的功能）。

例如，我的模块开始如下：

 Sub Main(ByVal args As String())
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim range As Excel.Range
        Dim aCell As Object
        xlApp = New Excel.Application

        Dim form As New Form1
        form.Show()

        xlWorkBook = xlApp.Workbooks.Open(form.TextBox1.Text)
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")

我的项目解决方案中有一个带有以下代码的表单：

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim OpenFileDialog = New OpenFileDialog()


        OpenFileDialog.Title = "Please Select a File"
        OpenFileDialog.InitialDirectory = "c:\\"
        OpenFileDialog.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        OpenFileDialog.FilterIndex = 2
        OpenFileDialog.RestoreDirectory = True

        If OpenFileDialog.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog.FileName


        End If
        Close()

    End Sub

End Class

您可以看到我尝试了此操作：

 Dim form As New Form1
            form.Show()

            xlWorkBook = xlApp.Workbooks.Open(form.TextBox1.Text)

尝试调用form1并将其TextBox1值用作我想要传递到我的代码中的文件。

是否可以调用表格？我将所有模块和表单组合到一个项目中，以查看它是否有帮助，但没有执行任何操作。

任何帮助将不胜感激。

VB.NET来自模块内部，您如何调用各种不同的形式？

0 个答案: