[sami2015]

PHP كود :

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