オープンファイルダイアログを作成する複数回使用する関数

Question

私はこのコードを関数にして、いくつかのパラメータを変更して再利用できるようにしたいと思います。

これはだから私はやることができません唯一のものはdialogBox2かdialogBox3にしてdialogBox1テキストを変更することで、これまで私が持っているもの

Sub OpenFiles(InFile As IO.StreamReader, verifytheFileName As String,dialogBoxTitle As String) 
    Dim result As DialogResult 
    Dim FilePath As String 
    Dim FileName As String 

    Try 
     dialogBox1.Title = dialogBoxTitle 
     dialogBox1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" 
     result = dialogBox1.ShowDialog 'Open This Dialog Box 
     FilePath = dialogBox1.FileName 'Gets the Path of the file and stores it in File Path Varible 
     FileName = dialogBox1.SafeFileName 'Gets the name of the file and stores it in File Name Varible 

     If Not FileName = verifytheFileName Then 
      MessageBox.Show("Please Select " &verifytheFileName) 
      dialogBox1.Reset() 
     Else 
      InFile = IO.File.OpenText(FilePath) 
     End If     
    Catch ex As Exception 
     MessageBox.Show("ERROR") 
    End Try 

End Sub 

です。あなたはそれを変更する必要がありますなぜ私はこの

Answer 1

を成し遂げることができますどのようにしてください

アドバイスはパラメータでダイアログボックスを渡し

は

Sub OpenFiles(InFile As IO.StreamReader, verifytheFileName As String,dialogBoxTitle As String, dialogBox1 as System.Windows.Forms.SaveFileDialog) 
Dim result As DialogResult 
Dim FilePath As String 
Dim FileName As String 

Try 
    dialogBox1.Title = dialogBoxTitle 
    dialogBox1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" 
    result = dialogBox1.ShowDialog 'Open This Dialog Box 
    FilePath = dialogBox1.FileName 'Gets the Path of the file and stores it in File Path Varible 
    FileName = dialogBox1.SafeFileName 'Gets the name of the file and stores it in File Name Varible 

    If Not FileName = verifytheFileName Then 
     MessageBox.Show("Please Select " &verifytheFileName) 
     dialogBox1.Reset() 
    Else 
     InFile = IO.File.OpenText(FilePath) 
    End If     
Catch ex As Exception 
    MessageBox.Show("ERROR") 
End Try 

End Sub