VB NET Visual Studio 2010 interface graphique

Private Function OuvrirFichier(ByVal pChemin As String, _
                               ByVal pMethode As String) As String

	Dim FenetreOuvrir As New OpenFileDialog
	Dim Resultat As DialogResult = Nothing
	Dim Fichier As String = String.Empty

	With FenetreOuvrir
		.InitialDirectory = CheminBinaire
		.Title = "Choisir un fichier Binaire"
		.Filter = "Fichier BIN(*.bin)|*.bin"
		Resultat = .ShowDialog()
		If Not (Resultat = Windows.Forms.DialogResult.Cancel) Then
			Fichier = .FileName
		End If
	End With

	Return Fichier

End Function

Private Sub btn_Parcourir_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) Handles btn_Parcourir.Click

	Dim Parcourrir As New FolderBrowserDialog

	With Parcourrir

		If (.ShowDialog = Windows.Forms.DialogResult.OK) Then
			Repertoire = .SelectedPath
			Repertoire &= "\"
			Me.tbx_Repertoire.Text = RepertoireRap
		End If

	End With

End Sub