xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="WpfApplication1.Window1"
Title="Font Properties VB Sample">
FontFamly:
Arial
Courier New
Tahoma
Times New Roman
Verdana
Foreground Color:
Black
Blue
Green
Red
Yellow
FontSize:
8 point
10 point
12 point
14 point
16 point
The FontFamily is set to Arial.
The FontSize is set to 12 point.
The Foreground color is set to Black.
this is a test
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Media
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub OnClick1(sender As Object, e As RoutedEventArgs)
txt1.Text = "The FontFamily is set to Arial."
txt2.FontFamily = New FontFamily("Arial")
End Sub
Public Sub OnClick2(sender As Object, e As RoutedEventArgs)
txt1.Text = "The FontFamily is set to Courier new."
txt2.FontFamily = New FontFamily("Courier new")
End Sub
Public Sub OnClick3(sender As Object, e As RoutedEventArgs)
txt1.Text = "The FontFamily is set to Tahoma."
txt2.FontFamily = New FontFamily("Tahoma")
End Sub
Public Sub OnClick4(sender As Object, e As RoutedEventArgs)
txt1.Text = "The FontFamily is set to Times new Roman."
txt2.FontFamily = New FontFamily("Times new Roman")
End Sub
Public Sub OnClick5(sender As Object, e As RoutedEventArgs)
txt1.Text = "The FontFamily is set to Verdana."
txt2.FontFamily = New FontFamily("Verdana")
End Sub
Public Sub OnClick6(sender As Object, e As RoutedEventArgs)
txt3.Text = "The FontSize is set to 8 point."
txt2.FontSize = 8
End Sub
Public Sub OnClick7(sender As Object, e As RoutedEventArgs)
txt3.Text = "The FontSize is set to 10 point."
txt2.FontSize = 10
End Sub
Public Sub OnClick8(sender As Object, e As RoutedEventArgs)
txt3.Text = "The FontSize is set to 12 point."
txt2.FontSize = 12
End Sub
Public Sub OnClick9(sender As Object, e As RoutedEventArgs)
txt3.Text = "The FontSize is set to 14 point."
txt2.FontSize = 14
End Sub
Public Sub OnClick10(sender As Object, e As RoutedEventArgs)
txt3.Text = "The FontSize is set to 16 point."
txt2.FontSize = 16
End Sub
Public Sub OnClick11(sender As Object, e As RoutedEventArgs)
txt4.Text = "The Foreground color is set to Black."
txt2.Foreground = Brushes.Black
End Sub
Public Sub OnClick12(sender As Object, e As RoutedEventArgs)
txt4.Text = "The Foreground color is set to Blue."
txt2.Foreground = Brushes.Blue
End Sub
Public Sub OnClick13(sender As Object, e As RoutedEventArgs)
txt4.Text = "The Foreground color is set to Green."
txt2.Foreground = Brushes.Green
End Sub
Public Sub OnClick14(sender As Object, e As RoutedEventArgs)
txt4.Text = "The Foreground color is set to Red."
txt2.Foreground = Brushes.Red
End Sub
Public Sub OnClick15(sender As Object, e As RoutedEventArgs)
txt4.Text = "The Foreground color is set to Yellow."
txt2.Foreground = Brushes.Yellow
End Sub
End Class
End Namespace