Déplacement "animé" d'une form

Télécharger le projet
Commenter

Description

Cette fonction vous permetteras de fair des joli déplacement de form.
(Peut être facilement converti pour n'import kel autres objets)
frm -> nom de la Form a déplacer
FinX -> Position X finale de la form
FinY -> Position Y finale de la form
FinH -> Hauteur finale de la form
FinW -> Largueur finale de la form
Vitesse -> vitesse de déplacement de la form (plus c grand: plus c lent mais plsu c fluide aussi ;-)

Source / Exemple : 


Public Sub Bouge(frm As Form, FinX As Integer, FinY As Integer, FinH As Integer, FinW As Integer, Vitesse As Integer)
Dim DecX As Long    'Décalage X (Left)
Dim DecY As Long    'Décalage Y (Top)
Dim DecH As Long    'Décalage H (Height)
Dim DecW As Long    'Décalage W (Width)

DecX = (FinX - frm.Left) / Vitesse 'Calcul des décalages
DecY = (FinY - frm.Top) / Vitesse  'Plus vitesse est grand, plus c lent, plus c fluide
DecH = (FinH - frm.Height) / Vitesse
DecW = (FinW - frm.Width) / Vitesse

For a = 1 To Vitesse    'Ben la ca déplace
frm.Top = frm.Top + DecY
frm.Left = frm.Left + DecX
frm.Width = frm.Width + DecW
frm.Height = frm.Height + DecH
frm.Refresh

Next a

End Sub

Conclusion :


Y'a un ch'tit exemple dans le zip
Kestion : je doi placer ca dans kel catégorie ???
Télécharger le projet

Codes Sources

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 (fabiin)