Une form qui vibre

Commenter

Contenu du snippet

En fait, c'est une forme qui vibre quand elle s'ouvre.
Ceci est ma 1ere source que je dépose.

Source / Exemple : 


'A coller dans une form
'VibroMasseur :-)

Private Sub Form_Load()
Left = -Width 'On cache la form
Show 'On la fait apparaître
Caption = "Vibro..."
Const vit = 1 'Vitesse
For i = 0 To (Width * 2) / vit + 100 / vit
    Left = Left + vit
    DoEvents
Next i
'Récupération des valeurs
Dim tp, lt
tp = Top
lt = Left
Caption = "Masseur!"
'On fait vibrer la form
For j = 0 To 1000
    Top = tp + 200 - (Rnd * 100) 'Top
    Left = lt + 200 - (Rnd * 100) 'Left
    DoEvents 'Vide la pile
Next j
'On atten 1 peu avant de fermer
Pause 200
End Sub

Sub Pause(Centièmes)
Dim Tim
Tim = Timer
Do While Tim + (Centièmes / 100) > Timer
DoEvents
Loop
End Sub

Conclusion :


Voila c'est à coller dans une form

@++ FloFlo

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Unreal)