Configurar el navegador en el curso vb
El atributo Caption es "Picture Browser" y el atributo BorderStyle es 3, lo que significa que 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 = cargar imagen (texto 1. texto) haga clic en ". OK", 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 pregunta vbdefaultbutton 1, "Salir")
Si exi=vbSí, entonces
Finalizar
Finalizar si...
Finalizar conector
-
Privado subdirectorio 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. Path=Drive1 'Cuando la unidad cambia, la lista del directorio cambia en consecuencia.
Conector final
-
Subarchivo privado 1_Click()
texto 1 . texto = archivo 1 ruta "\" . 'Se utiliza para mostrar el nombre del gráfico seleccionado en el cuadro de texto.
Conector final
-
Subarchivo privado 1_DblClick()
imagen 1 . 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 El botón Aceptar no está disponible cuando no se selecciona ningún archivo gráfico.
Archivo 1. mode="*.bmp*.jpg*.ico*."cur" muestra archivos con extensiones .bmp, .jpg, ico y .cur en el cuadro de lista de archivos.
Conector final
p>-
Subtexto privado 1_Change()
Comando 1. Enabled=True 'Cuando el contenido del cuadro de texto cambie, haga que el botón "Aceptar" esté disponible <. /p>
Conector final
Sol, Chu Xianni, Zhang, Hu