Clase pública Form1
FileData privado como secuencia = ""
El submarino privado Button1_Click (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige Button1.Click
Usar ofd como nuevo OpenFileDialog
Si ofd.ShowDialog = Windows.Forms.DialogResult.OK después
Intento
FileData = My.Computer.FileSystem.ReadAllText (ofd.FileName)
txtFile.Text = ofd.FileName
RichTextBox1.Text = FileData
Retén ex como excepción
MessageBox.Show (“archivo: ” y ofd.FileName y vbCrLf y vbCrLf y ex.ToString, “archivo”, MessageBoxButtons.OK, MessageBoxIcon.Error de Loadin del error)
Intento del final
Terminar si
Terminar usar
Terminar el submarino
El submarino privado Button2_Click (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige Button2.Click
RichTextBox1.Text = FileData
Submarino del extremo
Clase del extremo
|