Método de programación VB
Cuando configuramos una imagen de fondo de pantalla o insertamos una imagen en su archivo, siempre elegimos la imagen en su computadora. A veces puede que no estés satisfecho con las imágenes que abres, pero tienes que abrirlas y cerrarlas una por una... y así sucesivamente. Si se trata de un software grande como Photoshop, se ejecutará extremadamente lento. No sólo es molesto, sino que también te hace perder mucho de tu valioso tiempo. En este momento, ¿crees que "computadora" es un poco como "cerebro de cerdo"? Sin embargo, ¡no te preocupes! Afortunadamente, compilé un pequeño programa usando VB para resolver este problema. ¡También podrías intentarlo!
Paso a paso para configurar las propiedades de cada control:
1. Establezca la propiedad Caption del formulario en "Picture Browser" y la propiedad BorderStyle en 3, es decir, el El tamaño del formulario no se puede cambiar.
2. Establezca las propiedades de Label1 en "unidad actual", las propiedades de Label2 en "directorio actual" y las propiedades de Label3 en "archivo actual"; las propiedades de Label4 son "imagen actual"; , Label5 La propiedad de es "ruta del archivo actual".
3. Establezca la propiedad Texto de Texto1 en vacío.
4. Establezca la propiedad Estirar de Imagen1 en Verdadero, es decir, los gráficos cargados se pueden escalar para ajustarse al tamaño del cuadro de imagen.
5. Establezca la propiedad Título de Comando1 en Aceptar y la propiedad Título de Comando2 en Salir.
El código fuente específico del programa es el siguiente:
Subcomando privado 1_Click()
Imagen 1. Imagen = Cargar imagen (texto1.text)' Cuando hace clic en Aceptar, el archivo en el cuadro de texto se mostrará en el cuadro de imagen.
Conector final
Subcomando privado2_Click()'Cuando haces clic en "Salir", aparece un cuadro de diálogo que te pregunta si deseas salir del sistema.
Atenuar exi como cadena
Exi = MsgBox("¿Realmente quieres salir?", vbyesno+VB question+vbdefaultbutton 1, "Salir")
Si exi = vbSí, entonces
Fin
Fin si...
Finalizar conector
Subdirectorio privado 1_Change()
Archivo 1. Path = Dir1 'Cuando el directorio cambia, los archivos en el cuadro de lista de archivos también cambian en consecuencia.
Conector final
Subdriver1_Change()
Dir1. Ruta = Unidad1 'Cuando la unidad cambia, la lista del directorio cambia en consecuencia.
Conector final
Subarchivo privado 1_Click()
texto 1 . texto = ruta del archivo 1+" \ "+archivo 1 ' se utiliza en el cuadro de texto. Muestra el nombre del gráfico seleccionado.
Imagen1. Imagen = LoadPicture(Archivo1.Path + "\" + Archivo1)
Conector final
Subarchivo privado1_DblClick()
Imagen1. Imagen = Cargar imagen (Archivo 1. ruta+"\"+archivo 1)' Cuando hace doble clic en un archivo en la lista de archivos, el archivo se mostrará en el cuadro de imagen.
Conector final
Subform_Load() privado
Comando 1. Habilitado = Falso 'Cuando no se selecciona ningún archivo de gráficos, el botón "Aceptar" no está disponible.
Archivo 1. mode="*.bmp*.jpg*.ico*. Muestra archivos con extensiones .bmp, .jpg, .ico y .cur en el cuadro de lista de archivos.
ruta 1 . ()
Comando 1. Habilitado = Verdadero 'Cuando el contenido del cuadro de texto cambie, haga que el botón "Aceptar" esté disponible.
Finalizar conector
¡Bien, presiona F5 para ejecutarlo! ¿Estás satisfecho? A través de este pequeño programa, espero que la mayoría de los principiantes de VB puedan inspirarse en este artículo y luego usar VB 6.0 para escribir sus propios trabajos maravillosos.