Dessine une grille

Soyez le premier à donner votre avis sur cette source.

Vue 9 023 fois - Téléchargée 933 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

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
Trouve que sa ressemble po mal au miens
pas du tou ;-)
pi le tien c pas une fonction, donc c pas très pratique...
KDSMS
Messages postés
2
Date d'inscription
mardi 2 septembre 2003
Statut
Membre
Dernière intervention
17 septembre 2003
-
Je cherche une grille ISOmetrique

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.