No processo de desenvolvimento de software, a fim de melhorar o grau de comercialização do software, sentimos que a beleza da interface é um fator importante para o sucesso de um software. Estudamos cuidadosamente alguns softwares comerciais de sucesso. posso ver Sim, o fundo da janela do programa pode exibir padrões muito bonitos e tridimensionais. Ao usar Visual Basic 3.0 ou 4.0 para design de formulários, se você seguir apenas as funções fornecidas pelo sistema, poderá escolher apenas uma cor entre um número limitado de cores ou usar um programa para desenhar algumas linhas simples. Se você deseja obter um padrão de textura com uma forte sensação tridimensional, geralmente só pode usar o atributo PICTURE do formulário para chamar o arquivo bitmap. Uma delas é o tamanho do formulário. é limitado pelo tamanho do bitmap e é difícil de ajustar, não tem versatilidade e flexibilidade, o segundo é um desperdício de recursos, porque o padrão é basicamente um padrão repetitivo e usa um bitmap do mesmo tamanho; o formulário é um desperdício.
A seguir é apresentado um método para implementar padrões de fundo de formulário. Crie um controle de grade no formulário, defina as linhas da grade como invisíveis, remova as linhas e colunas fixas e use um programa para fazer com que o controle de grade tenha o mesmo tamanho do formulário e altere-o conforme o tamanho do formulário muda. Em seguida, projete um padrão para formar um arquivo bitmap BMP (o programa neste artigo usa o arquivo Pict1.bmp), ou intercepte um padrão de outras imagens, ou use o padrão fornecido pelo sistema Windows (como c:/windows/Tiles .bmp), transfira-o para o controle de imagem. Defina cada unidade da grade para ter o mesmo tamanho do padrão, de modo que o número de unidades cubra apenas todo o plano de fundo do formulário e, em seguida, exiba o padrão em todas as unidades. O processo acima é implementado através da sub-rotina Backpict(). Independentemente do tamanho do padrão ou formulário, o programa pode ajustar automaticamente o tamanho do controle da grade, o tamanho das células da grade e o número de células. O programa foi depurado com sucesso no VisualBasic4.0.
1. Crie um novo formulário Form1 com as seguintes propriedades:
Caption="Realização de padrões 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 Quando o programa estiver em execução, coloque o padrão básico do padrão de fundo nele e as propriedades serã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 base
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()
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(pictfile)
Fim Sub
7. Botão de comando para sair do programa
PrivateSubSSCommand1_Click()
Fim
Fim Sub
8. Demonstre diferentes padrões de sombreamento
PrivateSubSSCommand2_Click()
'Dois padrões de fundo demonstram alternadamente
Ifpictfile=filePath&"Pict1.bmp"Então
pictfile="c:/windows/Tiles.bmp"
Outro
pictfile=filePath&"Pict1.bmp"
FimSe
Backpict (arquivo de imagem)
FimSub->