x:Class="Typography_Samp.Page1"
WindowTitle="Typography Variants Sample">
Typography Variants Sample
this is a test
Arial
Palatino Linotype
Times New Roman
Verdana
Normal superscript
subscript
1st
H2
SO4
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Namespace Typography_Samp
Public Partial Class Page1
Inherits Page
Public Sub changeArial(sender As Object, e As RoutedEventArgs)
tf1.FontFamily = New FontFamily("Arial")
End Sub
Public Sub changePalatino(sender As Object, e As RoutedEventArgs)
tf1.FontFamily = New FontFamily("Palatino Linotype")
End Sub
Public Sub changeTimes(sender As Object, e As RoutedEventArgs)
tf1.FontFamily = New FontFamily("Times New Roman")
End Sub
Public Sub changeVerdana(sender As Object, e As RoutedEventArgs)
tf1.FontFamily = New FontFamily("Verdana")
End Sub
End Class
End Namespace