En el proceso de desarrollo de software, para mejorar el grado de comercialización del software, creemos que la belleza de la interfaz es un factor importante en el éxito de un software. Estudiamos cuidadosamente algunos de los software comerciales exitosos. Puede ver Sí, el fondo de la ventana del programa puede mostrar patrones tridimensionales muy hermosos. Cuando usa Visual Basic 3.0 o 4.0 para el diseño de formularios, si solo sigue las funciones proporcionadas por el sistema, solo puede elegir un color entre un número limitado de colores o usar un programa para dibujar algunas líneas simples. Si desea lograr un patrón de textura con una fuerte sensación tridimensional, generalmente solo puede usar el atributo IMAGEN del formulario para llamar al archivo de mapa de bits. Uno de ellos es el tamaño del formulario. está limitado por el tamaño del mapa de bits y es problemático de ajustar. No tiene versatilidad ni flexibilidad. El segundo es un desperdicio de recursos, porque el patrón es básicamente un patrón repetido y se usa un mapa de bits del mismo tamaño. la forma es un desperdicio.
A continuación se presenta un método para implementar patrones de fondo de formulario. Cree un control de cuadrícula en el formulario, configure las filas de la cuadrícula para que sean invisibles, elimine las filas y columnas fijas y use un programa para hacer que el control de cuadrícula tenga el mismo tamaño que el formulario y cámbielo a medida que cambia el tamaño del formulario. Luego diseñe un patrón para formar un archivo de mapa de bits BMP (el programa en este artículo usa el archivo Pict1.bmp), o intercepte un patrón de otras imágenes. También puede usar el patrón proporcionado por el sistema Windows (como c:windowsTiles. bmp) para llamar al control de imagen. Configure cada unidad de la cuadrícula para que tenga el mismo tamaño que el patrón, de modo que el número de unidades cubra todo el fondo del formulario y luego muestre el patrón en todas las unidades. El proceso anterior se realiza mediante la subrutina Backpict(), independientemente del tamaño del patrón o del tamaño de la ventana.
El programa puede ajustar automáticamente el tamaño del control de la red, el tamaño de la unidad de la red y el número de unidades. El programa se depuró exitosamente en VisualBasic4.0.
1. Cree un nuevo formulario Form1 con las siguientes propiedades:
Caption="Realización del patrón de fondo"
Borderstyle=3 (sin botones de máximo y mínimo)
2. Cree un control de cuadrícula Grid1. Su posición y tamaño se establecerán en el programa (el mismo tamaño que Form1), y sus propiedades son:
Habilitado=Falso (el foco no recaerá en el control de cuadrícula Grid1)
Fillstyle=1 (cambia las propiedades del texto de todas las celdas)
Colsfijos=0 (sin filas fijas)
Filas fijas=0 (sin columnas fijas)
Líneas de cuadrícula=False (las líneas de cuadrícula no son visibles),
Visible=Verdadero
3. Cree el control de imagen Imagen 1. Cuando el programa se esté ejecutando, coloque el patrón básico del patrón de fondo y las propiedades son
Visible=Falso (invisible)
Autosize=True (ajustar el tamaño automáticamente)
4. Agregue Sheridan3DControls al control, seleccione el botón de comando tridimensional SSCommand y cree dos
botón
SSCommand1.Caption="Salir"
SSCommand2.Caption="Cambiar fondo" (muestra diferentes patrones de fondo)
Su propiedad Imagen puede llamar al mismo o diferente patrón que el fondo si usa el control de botón de comando normal.
También se puede utilizar el comando, pero el botón de comando no tiene patrón de fondo.
5. Cree un patrón de fondo formando subrutina:
DimpictfileAsString`Nombre del archivo de mapa de bits
DimFILEPATHAsString`Ruta del archivo
SubBackpict(archivo pict)
imagen1.ScaleMode=3
Formulario1.ScaleMode=3
imagen1.Imagen=CargarImagen(archivo de imagen)
`El control de cuadrícula cubre todo el fondo del formulario.
cuadrícula1.Arriba=-1
cuadrícula1.Izquierda=-1
grid1.Width=Ancho
grid1.Height=Altura
grid1.Cols=Int(Form1.ScaleWidth/imagen1.ScaleWidth) 1
grid1.Rows=Int(Form1.ScaleHeight/imagen1.ScaleHeight) 1
`Todos los tamaños de celda son iguales al tamaño del patrón base
ParaI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
grid1.ColWidth(I)=imagen1.ScaleWidth*15
grid1.RowHeight(j)=imagen1.ScaleHeight*15
Siguientej
siguienteyo
`Seleccionar todas las unidades
grid1.SelStartCol=0
grid1.SelStartRow=0
grid1.SelEndCol=grid1.Cols-1
grid1.SelEndRow=grid1.Rows-1
grid1.Imagen=Imagen1.Imagen
FinSub
6. Formulario del programa principal
PRivateSubForm_Load()
PrivadoSubForm_Load()
`Obtiene el nombre de la ruta del programa en ejecución, con una barra invertida después del nombre de la ruta
IfRight(App.Path,1)<>""Entonces
filePath=Ruta.Aplicación&""
Demás
filePath=Ruta.Aplicación
Fin si
`El formulario inicialmente muestra un fondo compuesto por el patrón básico Tiles.bmp
pictfile="c:windowsTiles.bmp"
backpict(archivo de imagen)
FinSub
7. Botón de comando para salir del programa
PrivateSubSSCommand1_Click()
Fin
FinSub
8. Demostrar diferentes patrones de sombreado.
PrivateSubSSCommand2_Click()
`Dos patrones de fondo demuestran alternativamente
Ifpictfile=filePath&"Pict1.bmp"Entonces
pictfile="c:windowsTiles.bmp"
Demás
pictfile=rutadelarchivo&"Pict1.bmp"
Fin si
Backpict(archivo de imagen)
FinSub->