1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Grille magnétique pour le dessins

Grille magnétique pour le dessins

0/5 (1 avis)

Snippet vu 6 098 fois - Téléchargée 38 fois

Commenter

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
8 sept. 2009 à 19:39
Bonjour je suis débutans et j'aimerais avoir un code exemple pour voir l'utilisation.
Merci d'avance.
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 (beeline)