[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 Sub

and 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 Sub

and 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!