Imports ShapeEditorLibrary.Shapes
Public Class Form1
Private Sub AddShape(ByVal s As Shape)
Canvas1.Shapes.Add(s)
Canvas1.Invalidate()
End Sub
Private Sub addRectangleButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addRectangleButton.Click
Me.AddShape(New RectangleShape(Point.Empty))
End Sub
Private Sub addEllipseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addEllipseButton.Click
Me.AddShape(New EllipseShape(Point.Empty))
End Sub
Private Sub addTriangleButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addTriangleButton.Click
Me.AddShape(New TriangleShape(Point.Empty))
End Sub
Private Sub Canvas1_ShapesCollectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Canvas1.ShapesCollectionChanged
ShapesComboBox1.Items.Clear()
ShapesComboBox1.Items.AddRange(Canvas1.Shapes.ToArray())
End Sub
Private Sub Canvas1_SelectedShapeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Canvas1.SelectedShapeChanged
Dim s As Shape = Canvas1.SelectedShape
ShapesComboBox1.SelectedItem = s
PropertyGrid1.SelectedObject = s
End Sub
Private Sub ShapesComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShapesComboBox1.SelectedIndexChanged
Dim s As Shape = ShapesComboBox1.SelectedItem
If s IsNot Nothing Then
Canvas1.SetSelection(s)
Else
Canvas1.SetSelection(Nothing)
End If
End Sub
End Class