Agregar la función "Archivo - Abrir" en VB

Inicie VB, dibuje un TEXTBOX en el formulario, establezca la propiedad MultiLine en True y establezca la propiedad ScrollBars en 2. Haga clic en "Herramientas" - "Editor de menú", ingrese "Archivo (amp; F)" en el título, ingrese "Fi" en el nombre, luego haga clic en "Siguiente", haga clic en la flecha derecha y en el título Ingrese "Abrir ( amp; O)", ingrese "Op" en el nombre, haga clic en Aceptar y se completará el trabajo del menú.

Agregue el cuadro de diálogo común a continuación: haga clic en "Proyecto" - "Componentes", busque "Microsoft Common Dialog Control 6.0", marque la casilla al frente y haga clic en "Cerrar". Dibuje un control de cuadro de diálogo común recién agregado en el formulario.

Empiece a escribir el código a continuación:

Haga clic en "Archivo" en el formulario, seleccione "Abrir" y aparecerá el cuadro de código. Introduzca:

Dim FileName0 como cadena, FileText como cadena, R como cadena

CommonDialog1.DialogTitle = "Abrir archivo"

CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

CommonDialog1.ShowOpen 'Abrir cuadro de diálogo

FileName0 = CommonDialog1.FileName

Si FileName0 = "" Entonces salga de Sub

Abra FileName0 para la entrada como #1

Haga mientras no sea EOF(1)

Entrada de línea #1, FileText

R = R FileText amp Chr(13) Chr(10)

Bucle

Text1.Text = R

Cerrar #1

Está bien, puedes tener éxito.