Soyez le premier à donner votre avis sur cette source.
Vue 5 453 fois - Téléchargée 899 fois
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
13 mai 2001 à 22:01
c la le blème !
graphique ou formulaire ????
;-)
@+
fabs
13 mai 2001 à 19:43
Euh, catég' Graphique ou Formulaire, prkoi pô?...
Allez bone prog'!!
Gogogogogogogooooooo!
12 mai 2001 à 22:28
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.