Bonjours,
je voudrais dessiner plusieurs rectnagles
j'ai essayé ça mais ça ne marche pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim i As int16 Dim BrushBackColor As New SolidBrush(Color.White) 'défini la couleur de fond Dim Rect As New Rectangle() For i=0 To Grid.NbreColonne - 1'Grid.NbreColonne - 1 Rect.Location (Grid.OffsetX + i*Grid.X, Grid.OffsetY) Rect.Size (Grid.CaseX, Grid.TempMaxColonne) e.Graphics.FillRectangle(BrushBackColor, Rect) 'colorie le fond du rectangle BrushBackColor.Dispose() 'efface la mémoire Next i
[Tag [VB.NET] ajouté par freegreg]
Partager