Classe publique Form1
FileData privé comme corde = ""
Le sous-marin privé Button1_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule Button1.Click
Using l'ofd en tant que nouvel OpenFileDialog
Si ofd.ShowDialog = puis Windows.Forms.DialogResult.OK
Essai
FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
txtFile.Text = ofd.FileName
RichTextBox1.Text = FileData
Crochet ex comme exception
MessageBox.Show (« dossier : » et ofd.FileName et vbCrLf et vbCrLf et ex.ToString, « dossier de Loadin d'erreur », MessageBoxButtons.OK, MessageBoxIcon.Error)
Essai de fin
Finir si
Finir Using
Finir le sous-marin
Le sous-marin privé Button2_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule Button2.Click
RichTextBox1.Text = FileData
Sous-marin d'extrémité
Classe d'extrémité
|