vb.net绘图实现代码

<Window x:Class="Animation.PathBasedAnimation"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="PathBasedAnimation" Height="381.6" Width="521.6"
    >
 

  <Canvas Margin="10">
    <Image Name="image">
      <Image.Source>
        <DrawingImage>
          <DrawingImage.Drawing>
            <GeometryDrawing Brush="LightSteelBlue">
              <GeometryDrawing.Geometry>
                <GeometryGroup>
                  <Ellips教程eGeometry Center="10,10" RadiusX="9" RadiusY="4" />
                  <EllipseGeometry Center="10,10" RadiusX="4" RadiusY="9" />
                </GeometryGroup>
              </GeometryDrawing.Geometry>
              <GeometryDrawing.Pen>
                <Pen Thickness="1" Brush="Black" />
              </GeometryDrawing.Pen>
            </GeometryDrawing>
          </DrawingImage.Drawing>
        </DrawingImage>
      </Image.Source>
    </Image>
  </Canvas>
</Window>

实例二

<Window x:Class="Drawing.Drawings"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Drawings" Height="300" Width="300">
  <Window.Resources>
    <GeometryDrawing x:Key="Drawing" Brush="Yellow" >
      <GeometryDrawing.Pen>
        <Pen Brush="Blue" Thickness="3"></Pen>
      </GeometryDrawing.Pen>
      <GeometryDrawing.Geometry>
        <PathGeometry>
          <PathFigure IsClosed="True" StartPoint="10,100">
            <LineSegment Point="100,100" />
            <LineSegment Point="100,50" />
          </PathFigure>
        </PathGeometry>
      </GeometryDrawing.Geometry>
    </GeometryDrawing>
  </Window.Resources>
 
  <StackPanel Orientation="Horizontal" Margin="5">
    <Button Width="30" Height="30">
      <Image>
        <Image.Source>
          <DrawingImage Drawing="{StaticResource Drawing}">           
          </DrawingImage>
        </Image.Source>
      </Image>
    </Button>

  </StackPanel>
</Window>