Demora muito para iniciar e executar um sistema de aplicativo grande. O tempo varia de acordo com o número de inicializações necessárias e a velocidade do sistema do usuário. Portanto, uma janela de inicialização deve ser exibida antes da janela principal ser exibida. o aplicativo parece mais atraente porque algumas informações podem ser exibidas continuamente ao usuário quando o programa é carregado e belos efeitos visuais podem ser produzidos. Por exemplo, tanto o VB quanto o Delphi exibem uma janela inicial na frente da interface principal ao iniciar.
----1. A seguir está uma maneira simples de exibir uma tela inicial em flash (slogan):
opçãoexplícita
PRivatesubform_load()
'Mostra a janela principal
eu.show
'Mostra a janela inicial
frmsplash.show
eventos
'Executa a inicialização da aplicação
inicializar
'Fecha a janela inicial
descarregarpalsh
final
----Este código de procedimento deve ser colocado no formulário de inicialização da aplicação. O primeiro método show permite que o Windows exiba o formulário principal na tela, e o próximo método show exibe a tela piscando, que é um formulário que você projetou chamado frmsplash. Depois de usar o método show, use a função Doevents para garantir o flash de todos os elementos de. a tela é desenhada imediatamente. A função Initialize executa tarefas demoradas que precisam ser executadas quando o aplicativo é iniciado, como carregar dados de arquivos, carregar formulários na memória e assim por diante. Neste ponto tudo está pronto.
----2. Modelo de formulário intermitente.
----VisualBasic contém muitos formulários de modelo, um dos quais é a tela flash. Para adicionar um formulário Splashscreen ao projeto, selecione AddForm no menu do projeto. Selecione o ícone SplashScreen na guia Novo da caixa de diálogo AddForm e clique em Abrir.
----O código a seguir mostra um exemplo de como personalizar o modelo de formulário SplashScreen:
opçãoexplícita
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.nome do produto
frmsplash.lblplatform="janela98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.nomedaempresa
frmsplash.lblwarning="Aviso:esteprogramaestáprotegido"&_
"pela lei de direitos autorais, então não copie"
frmsplash.show
eventos
inicializar
descarregarfrmsplash
final
----Observe que o objeto app é usado aqui, que pode acessar informações sobre seu aplicativo;
---- O código do módulo de código do modelo de formulário de tela inicial é o seguinte:
PrivateSubForm_keypress(keyasciiasinteiro)
descarrega-me
Fimsub
Privatesubform_load()
lblversion.caption="versão"&app.major&".
"app.menor"."app.revisão
lblproductname.caption=app.title
final
privatesubframe1_click()
descarrega-me
FimSub->