Código fuente de la aplicación de lectura de Android

Subcomando privado 1_Click()

Atenuar a como una cadena

CommonDialog1. Filter = "Archivo de texto(*.txt)|*.txt"

CommonDialog1. MostrarOpen

Si CommonDialog1. Nombre de archivo = " "Luego salga de Sub

Abra CommonDialog1. El nombre del archivo de entrada es #1

Texto1. text = " "

En lugar de EOF(1)

Entrada de línea n.º 1, a

Text1. Texto = Texto1. Texto ampa ampvbCrLf

Línea

Cerrar #1

Conector final