->No processo de desenvolvimento de software, a estética da interface é um fator importante na comercialização do software. Este artigo apresenta um método para realizar padrões de fundo de forma. Para esse propósito, um belo fundo tridimensional pode ser projetado de maneira conveniente e flexível. 1. Crie um novo formulário Form1 com as seguintes propriedades:
Caption="Realização do padrão de fundo"
Borderstyle=3 (sem botões de máximo e mínimo)
2. Crie um controle de grade Grid1 Sua posição e tamanho serão definidos no programa (o mesmo tamanho do Form1), e suas propriedades são:
Enabled=False (o foco não recairá no controle de grade Grid1)
Fillstyle=1 (altera as propriedades do texto de todas as células)
Colunas fixas = 0 (sem linhas fixas)
Linhas fixas = 0 (sem colunas fixas)
Gridlines=False (as linhas de grade não são visíveis),
Visível = Verdadeiro
3. Crie o controle de imagem Imagem1 e coloque o padrão de fundo básico nele quando o programa estiver em execução.
Visível=Falso (invisível)
Autosize=True (ajustar automaticamente o tamanho)
4. Adicione Sheridan3DControls ao controle, selecione o botão de comando tridimensional SSCommand e crie dois botões:
SSCommand1.Caption="Sair"
SSCommand2.Caption="Alterar plano de fundo" (demonstra diferentes padrões de plano de fundo)
Sua propriedade Imagem pode chamar o mesmo padrão ou um padrão diferente do plano de fundo. Se você usar o comando de controle de botão de comando comum, ele também pode ser usado, mas o botão de comando não possui padrão de fundo.
5. Crie um padrão de fundo formando a sub-rotina:
Nome do arquivo bitmap DimpictfileAsString'
Caminho do arquivo DimFILEPATHasString'
SubBackpict (arquivo de imagem)
imagem1.ScaleMode=3
Formulário1.ScaleMode=3
picture1.Picture=CarregarImagem(pictfile)
'O controle de grade cobre todo o fundo do formulário
grade1.Top=-1
grade1.Esquerda=-1
grid1.Width=Largura
grid1.Height=Altura
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
'Todos os tamanhos das unidades são iguais ao tamanho do padrão básico
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
grid1.ColWidth(I)=imagem1.ScaleWidth*15
grid1.RowHeight(j)=imagem1.ScaleHeight*15
Próximoj
PróximoEu
'Seleciona todas as unidades
grid1.SelStartCol=0
grid1.SelStartRow=0
grid1.SelEndCol=grid1.Cols-1
grid1.SelEndRow=grid1.Rows-1
grid1.Picture=Imagem1.Imagem
Fim Sub
6. Formulário do programa principal:
PRivateSubForm_Load()
'Obtém o nome do caminho do programa em execução, com uma barra invertida após o nome do caminho
IfRight(App.Path,1)<>"/"Então
filePath=App.Path&"/"
Outro
filePath=App.Path
FimSe
'O formulário exibe inicialmente um fundo composto por padrões básicos Tiles.bmp
pictfile="c:/windows/Tiles.bmp"
backpict (arquivo de imagem)
Fim Sub
7. Botão de comando para sair do programa:
PrivateSubSSCommand1_Click()
Fim
Fim Sub
8. Demonstre diferentes padrões de sombreamento: Este artigo seleciona a imagem Windows Tiles.bmp, os leitores também podem selecionar outros gráficos de sua preferência. O código é o seguinte:
PrivateSubSSCommand2_Click()'Demonstração alternada de dois padrões de fundo
Ifpictfile=filePath&"Pict1.bmp"Então
pictfile="c:/windows/Tiles.bmp"
Outro
pictfile=filePath&"Pict1.bmp"
FimSe
Backpict (arquivo de imagem)
FimSub->
