Отправить filepath в текстовое поле в другой форме - PullRequest
Новая
       4

Отправить filepath в текстовое поле в другой форме

0 голосов
/ 19 октября 2011

В моем классе я хочу вернуть путь к файлу в поле для галочки в другой форме, но он не вернет путь к файлу после сохранения.Вероятно, потому что это sub и не вернет значение, я прав?Но как правильно это исправить? 

Friend Sub GetFilepath(ByVal hide As Boolean)
    Dim GeluidS As New GeluidSchermForm
    Call ExcelKoppelen("Z:\location\Geluidscherm_template.xls")
    Filepath = Xl.GetSaveAsFilename("", "Excel document (*.xls), *.xls", , , )
    Workbook.SaveAs(Filepath)
    GeluidS.Excelfilenaam.Text = Filepath
End Sub

Ответы [ 2 ]

0 голосов
/ 19 октября 2011

Если предоставленный вами метод находится внутри формы, вы хотите получить имя файла FROM ...

Вы можете создать свойство ReadOoly, которое возвращает глобальную переменную и будет обращаться к ней до удаления формы.

textbox1.Text = frm.filePath

Кроме того, вы можете написать функцию, которая просто возвращает глобальную переменную и вызывает ее перед тем, как утилизировать форму.

textbox1.Text = frm.getPath()

В зависимости от того, как используется GetFilePath(), он может не работать.Вам придется вызывать его извне формы, где был создан экземпляр формы.Трудно сказать, как он используется только с методом.

0 голосов
/ 19 октября 2011 
Friend Function GetFilepath(ByVal hide As Boolean) as String
    Dim GeluidS As New GeluidSchermForm
    Call ExcelKoppelen("Z:\location\Geluidscherm_template.xls")
    Filepath = Xl.GetSaveAsFilename("", "Excel document (*.xls), *.xls", , , )
    Workbook.SaveAs(Filepath)
    GeluidS.Excelfilenaam.Text = Filepath
    return Filepath
End Sub

Как это?

...