Question

在我的课程中，我想将文件路径返回到另一个表单上的tectbox，但是在保存后它不会返回文件路径。从某种程度上说，它是一个不会返回一个值，我是否正确？但解决这个问题的正确方法是什么？

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

Answer 1

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

喜欢那个？

Answer 2

如果您提供的方法位于您想要获取文件名FROM ...

的表单中

您可以创建一个ReadOoly属性，该属性返回一个全局变量并在放置表单之前访问它。

textbox1.Text = frm.filePath

此外，您可以编写一个函数来返回全局变量，并在处理表单之前调用它。

textbox1.Text = frm.getPath()

根据GetFilePath()的使用方式，它可能无效。您必须从表单外部调用它，其中创建了表单的实例。很难说它是如何与方法一起使用的。

将文件路径发送到另一个表单上的文本框

2 个答案: