[RESOLVED] rectangle

[rene12358]

Hi,

Anyone know how to create a rectangle using VB code....?

I tried the coding below but the rectangle does not appear:

Dim testRect As New Rectangle
Dim testCanvas As New Canvas
Dim testGrid As New Grid

testGrid.Children.Add(testCanvas)
testCanvas.Children.Add(testRect)
testRect.RadiusX = 3
testRect.RadiusY = 3

Thanks

[rene12358]

I'm using WPF application

[jmcilhinney]

I've never really used WPF but I thought I'd have a go at this to see if I could find an answer. When you create a new Window in a WPF app it has a Grid assigned to its Content property by default. I tried this code:Private Sub Window1_Loaded(ByVal sender As Object, _
ByVal e As RoutedEventArgs) Handles MyBase.Loaded
Dim testRect As New Rectangle
Dim testCanvas As New Canvas
Dim testGrid As New Grid

testGrid.Children.Add(testCanvas)
testCanvas.Children.Add(testRect)
testRect.RadiusX = 3
testRect.RadiusY = 3

DirectCast(Me.Content, Grid).Children.Add(testGrid)
End Suband saw nothing. I then changed it to this:Private Sub Window1_Loaded(ByVal sender As Object, _
ByVal e As RoutedEventArgs) Handles MyBase.Loaded
Dim testRect As New Rectangle
Dim testCanvas As New Canvas
Dim testGrid As New Grid

testGrid.Children.Add(testCanvas)
testCanvas.Children.Add(testRect)
testRect.RadiusX = 3
testRect.RadiusY = 3

testRect.Stroke = Brushes.Black
testRect.Height = 100
testRect.Width = 200

DirectCast(Me.Content, Grid).Children.Add(testGrid)
End Suband lo and behold, a rectangle appeared. If your rectangle has no height and no width, its border has no colour and it's not added to the Window's content, I guess it would be hard to see. :)

[chris128]

Alternatively if you wanted to create the rectangle using XAML you could just do this:

<Rectangle Height="100" Width="200" Fill="Black"/>

Of course you may of needed to create it dynamically in code for a reason so using XAML mat not be suitable but just thought I would mention it :)

[rene12358]

Thanks jmcilhinney and chris. It helps!