<Window x:Class="WpfApplication1.Polygons"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="Polygons"
Height="300" Width="300">
<Grid>
<StackPanel Name="stackPanel1" Margin="10">
<TextBlock Text="Polygon:" />
<Polygon Stroke="Black" StrokeThickness="3" Fill="LightGray"
Points="0 170,60 110,180 60,160 110,210 170" />
<TextBlock Text="Filled sine curve:" Margin="0 10 0 0" />
<Polygon Name="polygon1" Stroke="Red" StrokeThickness="2"
Fill="LightCoral" />
</StackPanel>
</Grid>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Shapes
Namespace WpfApplication1
Public Partial Class Polygons
Inherits Window
Public Sub New()
InitializeComponent()
For i As Integer = 0 To 70
Dim x As Double = i * Math.PI
Dim y As Double = 40 + 30 * Math.Sin(x / 10)
polygon1.Points.Add(New Point(x, y))
Next
End Sub
End Class
End Namespace
|
