Créer un logo animé :
Pourquoi faire ?
Pour se faire plaisir.
Déclarations minimalistes :
1
2
| PRIVATE $PH AS INTEGER
PRIVATE $PW AS INTEGER
|
Utilisation d'un timer :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| PUBLIC SUB Timer1_Timer() ' 'timer controlant la durée de l'animation du splash form
DIM i, p AS SINGLE
FOR p = 1 TO 6 STEP 1
FOR i = 1 TO 100 STEP 2
PictureBox1.Refresh()
WAIT '<------------------------------' on rafraîchit de suite
IF Module1.cloture THEN '<--------------------------' cas de fermeture
PictureBox1.H = CInt($PH / p)
PictureBox1.W = CInt($PW / p)
ELSE '<---------------------------------------------' cas d'ouverture
PictureBox1.H = CInt($PH * p)
PictureBox1.W = CInt($PW * p)
PictureBox1.Visible = TRUE
ENDIF
NEXT
NEXT
Timer1.Stop
Timer1 = NULL '<----------------------------------------' on vide la mémoire
ME.Close
END
|
Ouverture du splashForm :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| PUBLIC SUB _New()'Form_Open() ' 'ouverture du splash form avec animation
Module1.son(Module1.ouverture3) 'sons sur Module1 pour éviter problèmes clôture
IF Module1.cloture THEN
$PH = PictureBox1.H
$PW = PictureBox1.W
ELSE
PictureBox1.Visible = FALSE
$PH = PictureBox1.H / 6
$PW = PictureBox1.W / 6
PictureBox1.H = $PH
PictureBox1.W = $PW
ENDIF
Timer1.Start
END
|
Vous choisissez votre image aux dimensions qui vous conviennent.
====================
Navigation :
<-- Liens du Wiki <--<-- Accueil du WIKI : <-- ====================
La Documentation :
====================