Classe pública Form1
FileData confidencial como a corda = o ""
O submarino confidencial Button1_Click (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura Button1.Click
Using o ofd como OpenFileDialog novo
Se ofd.ShowDialog = Windows.Forms.DialogResult.OK então
Tentativa
FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
txtFile.Text = ofd.FileName
RichTextBox1.Text = FileData
Prendedor ex como a exceção
MessageBox.Show (“lima: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, “lima”, MessageBoxButtons.OK, MessageBoxIcon.Error de Loadin do erro)
Tentativa do fim
Terminar se
Terminar Using
Terminar o submarino
O submarino confidencial Button2_Click (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura Button2.Click
RichTextBox1.Text = FileData
Submarino da extremidade
Classe da extremidade
|