Bonjour,
Je suis sur un projet de creation d'un Editeur de rapport. j'ai un Canvas qui est charger d'avoir l'integralité des elements qui seront dessiner.
Lorsque je dessine une ligne, je dispose des property X1,Y1,X2,Y2. je peut donc le placer exactement comme je le souhaite,
par contre pour le rectangle, je n'est que Width et Height, par defaut il est placer a 0,0 dans mon Canvas.
Dans une autre conversation sur le forum, j'ai vue que Gilles TOURREAU precisais de placer le rectangle dans une canvas, j'ai donc ajouter un canvas et le rectangle dans ce canvas, puis ensuite je rajoute le canvas dans le canvas qui sert au dessin. Mais
je n'arrive pas a positionnée le nouveau canvas ...
Voici la fonction qui me dessine un rectange dans mon canvas parent.
Désoler d'arrivé avec autant de question, mais le demarrage dans ce nouveau langage est assez difficile.
Private Sub DrawRectangle(ByRef pCanvasParent As Canvas)
Dim lRectangle As New Rectangle()
Dim lCanvaRectangle As New Canvas
lRectangle.Width = 150
lRectangle.Height = 150
Dim lBrush As New SolidColorBrush(Colors.Green)
lRectangle.Stroke = Brushes.Red
lRectangle.StrokeThickness = 4
lRectangle.Fill = lBrush
lCanvaRectangle.Children.Add(lRectangle)
pCanvasParent.Children.Insert(0, lCanvaRectangle)
End Sub
Cordialement Sébastien
DataBase2Code
