VB.NET из модуля, как вы называете различные формы? - PullRequest
Новая
       23

VB.NET из модуля, как вы называете различные формы?

0 голосов
/ 20 сентября 2018

У меня есть модуль с 3 различными сабвуферами.Для 2 из этих подводных лодок я создал 2 разные формы.Первая форма - это filedialog, и я хочу использовать выбранный файл для передачи в один из моих модулей.То же самое относится и к другому модулю, где я создал форму 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 в качестве файла, который я хотел передать в мой код.

Есть ли способ вызвать форму?Я объединил все свои модули и формы в один проект, чтобы посмотреть, поможет ли это, но он ничего не сделал.

Буду признателен за любую помощь.

...