他のフォームのテキストボックスにファイルパスを送る

Question

私のクラスでは、ファイルパスを他のフォームのtectboxに戻したいが、保存後にファイルパスを返さない。 Proballyそれはサブですので、私は正しい値を返さないでしょうか？しかし、これを修正する正しい方法は何ですか？そのような

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

ご提供方法は、あなたからファイル名を取得したいフォーム内にある場合...

あなたはグローバル変数を返すReadOolyプロパティを作成し、フォームが配置される前に、それをアクセスすることができます。

textbox1.Text = frm.filePath 

また、グローバル変数を返す関数を記述して、フォームを破棄する前に呼び出すこともできます。

textbox1.Text = frm.getPath() 

GetFilePath()の使用方法によっては機能しない場合があります。フォームのインスタンスが作成されたフォームの外から呼び出す必要があります。メソッドだけでどのように使用されているのかわかりにくいです。