->En el proceso de desarrollo de software, la estética de la interfaz es un factor importante en la comercialización del software. Este artículo presenta un método para realizar patrones de fondo de formulario. Para este propósito, se puede diseñar un hermoso fondo tridimensional de manera conveniente y flexible. 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 Imagen1 y coloque el patrón de fondo básico en él cuando el programa se esté ejecutando. 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 botones:
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 comando de control de botón ordinario, también se puede usar, pero el botón de comando no tiene patrón de fondo.
5. Cree un patrón de fondo formando subrutina:
Nombre del archivo de mapa de bits DimpictfileAsString
Ruta del archivo DimFILEPATHAsString
SubBackpict(archivo pict)
imagen1.ScaleMode=3
Formulario1.ScaleMode=3
imagen1.Imagen=CargarImagen(archivo de imagen)
'El control de grilla 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 unidades son iguales al tamaño del patrón básico
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()
'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 patrones básicos de Tiles.bmp
pictfile="c:/windows/Tiles.bmp"
backpict(archivo de imagen)
FinSub
7. Botón de comando para salir del programa:
PrivateSubSSCommand1_Click()
Fin
FinSub
8. Demuestre diferentes patrones de sombreado: este artículo selecciona la imagen Windows Tiles.bmp, los lectores también pueden seleccionar otros gráficos que deseen. El código es el siguiente:
PrivateSubSSCommand2_Click()'Demostración alterna de dos patrones de fondo
Ifpictfile=filePath&"Pict1.bmp"Entonces
pictfile="c:/windows/Tiles.bmp"
Demás
pictfile=rutadelarchivo&"Pict1.bmp"
Fin si
Backpict(archivo de imagen)
FinSub->
