Общественный тип Form1
Приватное FileData как шнур = ""
Приватная подводная лодка Button1_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует Button1.Click
Using ofd как новое OpenFileDialog
Если ofd.ShowDialog = Windows.Forms.DialogResult.OK после этого
Попытка
FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
txtFile.Text = ofd.FileName
RichTextBox1.Text = FileData
Задвижка ex как исключение
MessageBox.Show («архив: » & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, «архив», MessageBoxButtons.OK, MessageBoxIcon.Error Loadin ошибки)
Попытка конца
Закончитесь если
Закончитесь Using
Закончите подводную лодку
Приватная подводная лодка Button2_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует Button2.Click
RichTextBox1.Text = FileData
Подводная лодка конца
Тип конца
|