¿Alguna vez pensaste en diseñar tu propio navegador gráfico? De hecho, esto no es nada difícil, podemos usar fácilmente la programación VB para lograrlo.
El proceso de diseño del navegador gráfico es el siguiente:
1. Inicie VB, cree un nuevo archivo de proyecto estándar y, en el formulario Form1, cambie el título de Form1 = "Navegador gráfico".
2. Agregue los controles de unidad, carpeta y archivo al formulario desde la caja de herramientas. El nombre de la unidad es Diver1, el nombre de la carpeta es Dir1 y el nombre del archivo es File1, y ajuste las posiciones apropiadas.
3. Agregue el control PictureBox al formulario desde la caja de herramientas. El nombre del PictureBox es Imagen1 y ajuste la posición, la altura y el ancho apropiados.
4. Desde la caja de herramientas, agregue el control CommandButton al formulario. El nombre del CommandButton es Command1 y ajuste la posición, la altura y el ancho apropiados.
5. Haga doble clic con el mouse en el espacio en blanco del formulario para abrir la ventana de edición de código e ingrese el siguiente código:
PRivateSubForm_Load()
'Establece la unidad y el directorio donde se encuentra la aplicación como la unidad y el directorio actuales
'La aplicación es el objeto de la aplicación actual
Drive1.Drive=Aplicación.Ruta
Dir1.Path=Aplicación.Ruta
Archivo1.Patrón="*.bmp;*.ico;*.wmf"
FinSub
6. Haga doble clic en el control del controlador en el formulario para abrir la ventana de edición de código e ingrese el siguiente código:
PrivadoSubDrive1_Change()
'Cuando la unidad seleccionada cambia, actualiza el contenido en el cuadro de lista del directorio; cuando el directorio cambia, activa el evento Cambiar del cuadro de lista del directorio;
Dir1.Path=Unidad1.Unidad
FinSub
7. Haga doble clic con el mouse en el control de carpeta del formulario para abrir la ventana de edición de código, ingrese el siguiente código:
PrivadoSubDir1_Change()
'Cuando el directorio cambie, actualice el contenido del cuadro de lista de archivos
Archivo1.Ruta=Dir1.Ruta
FinSub
8. Haga doble clic con el mouse en el control de archivo del formulario para abrir la ventana de edición de código, ingrese el siguiente código:
SubArchivoPrivado1_Click()
'Directorio raíz, el último carácter de la ruta es una barra invertida "/", como por ejemplo: C:/
'Cuando es un directorio no raíz, el último carácter de la ruta no es una barra invertida "/"
'Para obtener el nombre completo del archivo, debe agregar una barra invertida "/" al final de la ruta
IfRight(Archivo1.Ruta,1)〈〉"/"Entonces
'Cuando no sea un directorio raíz, agregue una barra invertida "/" al final de la ruta
tempstring=Archivo1.Ruta&&"/"&&Archivo1.NombreDeArchivo
Demás
tempstring=Archivo1.Ruta&&"/"&&Archivo1.NombreDeArchivo
Fin si
'Cargar archivos seleccionados
Form1.Picture1.Picture=CargarImagen(cadena temporal)
FinSub
9. Haga doble clic en el control "Cerrar" del formulario para abrir la ventana de edición de código e ingrese el siguiente código:
PrivadoSubCommand1_Click()
Descargarme
Fin
FinSub
Guarde el archivo, ejecútelo y su propio navegador gráfico estará listo. ->