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]