|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Criando uma Tela de Splash para seu Programa
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Para ter uma tela de splash (aquela que aparece enquanto o programa está sendo carregado) em seu programa, siga os seguintes passos:
1º - Coloque em seu projeto um novo Form e configure-o conforme o seu gosto para que ele seja sua tela de splash.
2º - Abra a tela de propriedades do seu projeto e selecione este form que você acaba de criar em "Startup Object:" (para que ele seja o 1º form a aparecer quando seu programa for executado).
3º - Coloque este código nesse form:
Private Sub Form_Activate()
Screen.MousePointer = 11
DoEvents
'Troque este "frmPrincipal" pelo nome do
'principal form de seu programa.
frmPrincipal.Show
'Esta linha é uma chamada de API.
'Para saber mais sobre ela veja a
'dica Dar uma Pausa em seu Programa
Sleep (1000)
Unload Me
Screen.MousePointer = 0
End Sub
Private Sub Form_Load()
'Esta linha é uma chamada de API.
'Para saber mais sobre ela veja a
'dica Formulário ficar por cima de todos
Call SetWindowPos(frmSplash.hWnd, -1, 150, _
130, 0, 0, &H1)
End Sub
O uso do DoEvents nesse caso é para permitir que o primeiro Form (o frmSplash) apareça sobreposto atraves da chamada da API SetWindowPos. Se não for colocado o DoEventes o SetWindowsPos não funcionará.
|
|
|
|
|
