sdk/samples/WPFSamples/FlowDocumentNews/visualbasic/document1.xaml.vb

   1 Imports System
   2 Imports System.Windows
   3 Imports System.Windows.Controls
   4 Imports System.Windows.Documents
   5 Imports System.Windows.Navigation
   6 Imports System.Windows.Input
   7 Imports System.Windows.Media
   8
   9
  10 namespace document2
  11
  12     Partial Public Class DockPanel2
  13
  14
  15         Inherits DockPanel
  16
  17
  18         Public Sub colWidest(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  19
  20             fd2.ColumnWidth = 150
  21         End Sub
  22         Public Sub colMore(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  23
  24             fd2.ColumnWidth = 250
  25         End Sub
  26         Public Sub colAverage(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  27
  28             fd2.ColumnWidth = 350
  29         End Sub
  30         Public Sub colFewer(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  31
  32             fd2.ColumnWidth = 450
  33         End Sub
  34         Public Sub colLeast(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  35
  36             fd2.ColumnWidth = 550
  37         End Sub
  38
  39         Public Sub textLargest(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  40
  41             fd2.FontSize = 18
  42         End Sub
  43         Public Sub textLarge(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  44
  45             fd2.FontSize = 15
  46         End Sub
  47         Public Sub textAverage(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  48
  49             fd2.FontSize = 12
  50         End Sub
  51         Public Sub textSmall(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  52
  53             fd2.FontSize = 10
  54         End Sub
  55         Public Sub textSmallest(ByVal Sender As Object, ByVal e As RoutedEventArgs)
  56
  57             fd2.FontSize = 8
  58         End Sub
  59     End Class
  60 End Namespace
  61