Grille magnétique pour le dessins

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 623 fois - Téléchargée 36 fois

Contenu du snippet

Voila comment faire une grille "magnétique" comme dans les logiciel de dessins professionnel ou pour les amateur ( architech 3d)

Le principe est de reperer le point de la grille le plus proche des coordonné du pointeur

je vous consseille de vous faire un "pointeur", par exemple un rond fait avec le control shape et de mettre dans la form_mousemove :

Shape2.Top = pluspre(Y) - (Shape2.Height / 2)
Shape2.Left = pluspre(X) - (Shape2.Width / 2)

et le shape2 se centrera sur le point le plus pre

sinon je vous mett aussi la fonction pour tracer la grille ...

Source / Exemple :


'definir le pas de la grille 
Div = 250

Private Function pluspre(X)
a = Int(X / Div)
b = a + 1
z = a * Div
f = b * Div
c = (X - z)
d = (f - X)

If c < d Then
pluspre = z
Else
pluspre = f
End If
End Function

Private sub trace()
For i = 0 To Picture1.ScaleWidth Step Div
    For j = 0 To Picture1.ScaleHeight Step Div
        Picture1.PSet (i, j)
    Next j
Next i
End sub

Conclusion :


j'espere que sa rendra service a quelqu'un puisque c'est quand meme le but

A voir également

Ajouter un commentaire

Commentaire

mimi35garry
Messages postés
21
Date d'inscription
mercredi 21 janvier 2009
Statut
Membre
Dernière intervention
8 février 2013
-
Bonjour je suis débutans et j'aimerais avoir un code exemple pour voir l'utilisation.
Merci d'avance.

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.