Sélectionnez un fichier dans le dossier boîte de dialogue Ouvrir

Vous remarquerez dans le chapitre précédent que si vous sélectionnez un fichier et cliquez sur le bouton Ouvrir, rien ne se passe. C'est parce que les boîtes de dialogue ouvert ne fait pas les fichiers ouverts! Il affiche seulement une liste de fichiers qui peuvent être ouverts, si vous étiez assez intelligent pour écrire le code. Nous allons écrire le code qui fait l'ouverture (et l'économie) dans une section ultérieure. Mais vous devez être en mesure d'obtenir le nom du fichier. La boîte de dialogue Ouvrir possède une propriété qui retourne le nom du fichier qui a été sélectionné. Sans surprise, il a appelé FileName:

OpenFD.FileName

Cependant, c'est une propriété qui retourne une valeur (une valeur de chaîne). La valeur est le nom d'un fichier. Donc, vous devez attribuer cette valeur à quelque chose. Nous pouvons attribuer à une nouvelle variable:

StrFileName Dim As String

strFileName = OpenFD.FileName

La valeur de la variable de strFileName tiendra ensuite le nom du fichier sélectionné. Donc vous changer le code de ce (nouvelles lignes en gras):

StrFileName Dim As String

openFD.InitialDirectory = "C: \"
openFD.Title = "Ouvrir un fichier texte"
openFD.Filter = "Fichiers texte | *. txt"
openFD.ShowDialog ()
strFileName = OpenFD.FileName

MessageBox.Show (strFileName)

Exécutez votre programme et cliquez sur votre menu Fichier> Ouvrir. Accédez à l'endroit où vous avez des fichiers de texte. Cliquez sur l'un pour le sélectionner. Puis cliquez sur le bouton Ouvrir. Vous devriez voir le nom du fichier affiché dans votre boîte de message:

Notez que l'emplacement (le chemin) du fichier est également affiché.

Une chose que vous avez peut-être remarqué, c'est que si vous sélectionnez un fichier, puis cliquez sur le bouton Annuler, la boîte de message s'affiche encore. Mais il sera vide, ou tout simplement dire OpenFileDialog1. Dans votre code, vous ne voulez faire quelque chose avec un fichier si le bouton Annuler n'est pas cliqué.
Vous pouvez tester pour voir si elle a été cliqué en assignant le openFD.ShowDialog () pour un entier:

DidWork As Integer = openFD.ShowDialog ()

Vous pouvez alors tester ce qui est à l'intérieur de la variable DidWork. Si le bouton d'annulation est cliqué, le résultat de l'action est stocké en VB.NET dans cette propriété:

DialogResult.Cancel

Vous pouvez comparer les deux dans une instruction if:

Si DidWork = DialogResult.Cancel ensuite

MsgBox ("Cancel bouton cliqué")

Else

strFileName = openFD.FileName
MsgBox (strFileName)

End If

Dans le code ci-dessus, vous êtes seulement ouvrir le fichier si le bouton Ouvrir l'utilisateur a cliqué. Le code est un peu plus compliqué, mais l'étudier pendant un certain temps et il prendra tout son sens!
Dans la partie suivante, nous allons jeter un oeil à la façon de coder pour le menu Enregistrer.

Posted in: Visual Basic .NET