Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice la programación VB para crear un visor de archivos de texto que muestre el contenido del texto en el cuadro de texto y muestre la ruta del texto en el cuadro de texto según el archivo seleccionado por el usuario.

Utilice la programación VB para crear un visor de archivos de texto que muestre el contenido del texto en el cuadro de texto y muestre la ruta del texto en el cuadro de texto según el archivo seleccionado por el usuario.

Simple:

Privado?Sub?Dir1_Change()

Me.File1?=?Dir1

Fin?Sub

¿Privado?Sub?Drive1_Change()

¿Error?¿Reanudar? Siguiente

Me.Dir1?=?Drive1

Fin?Sub

Privado?Sub?File1_DblClick()

Text2.Text?=?""

Text1.Text?=?Dir1?\"? &?Yo. Archivo1.NombreDeArchivo

Dim?b?As?String

If?Dir(Dir1?&?" \"? &?Me.Archivo1.NombreDeArchivo)? ?Entonces

¿Abrir?Dir1?&?"\For?Input?As?#1

¿Hacer?Mientras?No?EOF(1)

Ingresar ?#1,?b

Texto2.Text?=?Text2.Text?&?b Bucle

¿Cerrar?#1

Fin ?Si

¿Fin?

上篇: Apuntes de la conferencia "La literatura es la lámpara" 下篇: Código fuente de vídeo en línea

Artículos populares