Cómo cargar diferentes archivos de texto en VB Richtextbox

Sub privado btnOpen_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs) Proceso btnOpen.Click

Usar OpenFileDialog1

.Filter = "Texto archivos(*.txt)|*.txt|Todos los archivos(*. *)|*.*"

.FilterIndex = 1

.InitialDirectory = "c:\temp\ "

.Title = "Diálogo de apertura de archivo de demostración"

Terminar con

Si OpenFileDialog1 .ShowDialog = DialogResult.OK Entonces

strFileName = OpenFileDialog1.Dim objReader As StreamReader = New StreamReader( strFileName)

RichTextBox1.Text = objReader.ReadToEnd

objReader.Close()

objReader = Nada

Finalizar si

Finalizar sub

Comenzar con

Importa System.IO