fabiin
-
31 mai 2001 à 18:50
KDSMS
Messages postés2Date d'inscriptionmardi 2 septembre 2003StatutMembreDernière intervention17 septembre 2003
-
8 sept. 2003 à 20:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
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
8 sept. 2003 à 20:07
1 juin 2001 à 18:04
pi le tien c pas une fonction, donc c pas très pratique...
1 juin 2001 à 03:11
31 mai 2001 à 18:50
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