TextGeometry-as-Resource


                    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:src="clr-namespace:WpfApplication1.TextGeometryDemo" 
        Title="TextGeometry Demo">
    
                                  FontFamily="Times New Roman" 
                          FontSize="192" FontWeight="Bold" />
        
                                  FontFamily="Times New Roman"
                          FontSize="192" FontWeight="Bold" />
    
    
        
                              Data="{Binding Source={StaticResource txtHollow}, Path=Geometry}" />
        
    

//File:Window.xaml.vb
Imports System
Imports System.Globalization
Imports System.Windows
Imports System.Windows.Media
Namespace WpfApplication1.TextGeometryDemo
  Public Class TextGeometry
    Private txt As String = ""
    Private fntfam As New FontFamily()
    Private fntstyle As FontStyle = FontStyles.Normal
    Private fntwt As FontWeight = FontWeights.Normal
    Private fntstr As FontStretch = FontStretches.Normal
    Private emsize As Double = 24
    Private ptOrigin As New Point(0, 0)
    Public Property Text() As String
      Get
        Return txt
      End Get
      Set
        txt = value
      End Set
    End Property
    Public Property FontFamily() As FontFamily
      Get
        Return fntfam
      End Get
      Set
        fntfam = value
      End Set
    End Property
    Public Property FontStyle() As FontStyle
      Get
        Return fntstyle
      End Get
      Set
        fntstyle = value
      End Set
    End Property
    Public Property FontWeight() As FontWeight
      Get
        Return fntwt
      End Get
      Set
        fntwt = value
      End Set
    End Property
    Public Property FontStretch() As FontStretch
      Get
        Return fntstr
      End Get
      Set
        fntstr = value
      End Set
    End Property
    Public Property FontSize() As Double
      Get
        Return emsize
      End Get
      Set
        emsize = value
      End Set
    End Property
    Public Property Origin() As Point
      Get
        Return ptOrigin
      End Get
      Set
        ptOrigin = value
      End Set
    End Property
    Public ReadOnly Property Geometry() As Geometry
      Get
        Dim formtxt As New FormattedText(Text, CultureInfo.CurrentCulture, FlowDirection.LeftToRight, New Typeface(FontFamily, FontStyle, FontWeight, FontStretch), FontSize, Brushes.Black)
        Return formtxt.BuildGeometry(Origin)
      End Get
    End Property
    Public ReadOnly Property PathGeometry() As PathGeometry
      Get
        Return PathGeometry.CreateFromGeometry(Geometry)
      End Get
    End Property
  End Class
End Namespace
WPF VB.Net
