WPF VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. WPF
  4. Fills the polylines with a light gray color
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="Polygons"
  Height="300" Width="300">
  
    
      
              Points="0 170,60 110,180 60,160 110,210 170" />
      
              Fill="LightCoral" />
    
  

//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