Dessine une grille

Soyez le premier à donner votre avis sur cette source.

Vue 9 242 fois - Téléchargée 950 fois

Description

Pour dessiner une grille dans un picturebox, simple non :)

Source / Exemple :


Dans le ZIP

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
17 septembre 2003

Je cherche une grille ISOmetrique
pas du tou ;-)
pi le tien c pas une fonction, donc c pas très pratique...
Trouve que sa ressemble po mal au miens
voici une fonction pour tracer une grille :

Public Sub TraceGril(Obj As Object, Haut As Integer, Larg As Integer, Col As Long) 'Trace une grille

Dim a As Integer
Dim b As Integer
Obj.FillStyle = 1
For a = 0 To Obj.ScaleWidth Step Larg
For b = 0 To Obj.ScaleHeight Step Haut
Obj.Line (a, b)-(a + Larg, b + Haut), Col, B

Next b
Next a

End Sub

ca trace une grille sur une picturebox(ou une form), avec la hauteur et la largueur de chaque carreau au ScaleMode de l'objet

exemple d'utilisation :
TraceGril Picture1, 20, 20, vbBlack

voila
@+
fabs

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.