DESSINE UNE GRILLE

Signaler
-
Messages postés
2
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
17 septembre 2003
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1228-dessine-une-grille

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