Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Fills the polylines with a light gray color

<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