Secouer un formulaire ou autre :
Pourquoi ?
Pour obtenir un effet visuel tout à fait intéressant.
1
2
3
4
5
6
7
| PUBLIC SUB boutonQuelconque_Click() '<--------------' déclenchement de l'effet visuel
Timer1.Start
WAIT 0.5
Timer1.Stop
END
|
1
2
3
4
5
6
7
8
9
10
11
12
13
| PUBLIC SUB Timer1_Timer()'<--------------------------------' Timer to 'Shake' the Form or other if Me is Changed to an another Object
DIM siCount AS SHORT
IF Even(ME.X) THEN ME.x += 9 ELSE ME.x -= 9 '<----------' If the Form's X value is even then add 9 to it Else subtract 9 from the X value
WAIT '<------------------------------------------------' Once around the Event Loop
INC siCount '<------------------------------------------' Increase the counter
IF siCount > 75 THEN '<----------------------------' If the counter is greater than 75 then..
Timer1.Stop '<--------------------------------------' Stop the Timer (and therefore the 'Shaking')
siCount = 0 '<--------------------------------------' Reset the counter
END IF
END
|
1
2
3
4
5
| PUBLIC SUB Form_Close()
Timer1 = NULL '<---------------------------------------' vider la mémoire
END
|
Le Timer1.Delay=10 '<-------------------------------------' dix millisecondes pour un effet rapide
Me, le formulaire, peut être changé par tout autre objet à "secouer".
Effet spécial garanti.
====================
Navigation :
<-- Liens du Wiki <--<-- Accueil du WIKI : <-- ====================
La Documentation :
==============================