Define a GridSplitter and Keyboard Increment : GridSplitter « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. GridSplitter

<Window x:Class="GridSplitter_Example.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="GridSplitter Example">
<Grid>
  <Grid.ColumnDefinitions>
    <ColumnDefinition Name="Col0" />
    <ColumnDefinition Name="Col1" />
    <ColumnDefinition Name="Col2" />
    <ColumnDefinition Name="Col3" />
  </Grid.ColumnDefinitions>
  <Grid.RowDefinitions>
    <RowDefinition Name="Row0" />
    <RowDefinition Name="Row1" />
    <RowDefinition Name="Row2" />
  </Grid.RowDefinitions>

  <StackPanel Grid.Row="0" Grid.Column="0" Background="Orange">
    <TextBlock>Row 0 Col 0</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="1" Grid.Column="0" Background="Blue">
    <TextBlock>Row 1 Col 0</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="2" Grid.Column="0" Background="Green">
    <TextBlock>Row 2 Col 1</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="0" Grid.Column="1" Background="Purple">
    <TextBlock>Row 0 Col 1</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="1" Grid.Column="1" Background="Red">
    <TextBlock>Row 1 Col 1</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="2" Grid.Column="1" Background="Salmon">
   <TextBlock>Row 2 Col 1</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="0" Grid.Column="2" Background="MediumVioletRed">
    <TextBlock>Row 0 Col 2</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="1" Grid.Column="2" Background="SteelBlue">
    <TextBlock>Row 1 Col 2</TextBlock>
  </StackPanel>
  <StackPanel Grid.Row="2" Grid.Column="2" Background="Olive">
    <TextBlock>Row 2 Col 2</TextBlock>
  </StackPanel>
   
  <GridSplitter Name="myGridSplitter" Grid.Column="1" Grid.Row="1" Width="5"/>
  <StackPanel Grid.Column="3" Grid.RowSpan="3" Background="Brown">
    <TextBlock FontSize="14" Foreground="Yellow">Property Settings</TextBlock>

      <StackPanel Margin="0,5,0,0">
        <TextBlock>KeyboardIncrement</TextBlock>
        <RadioButton Name="KeyboardIncrementAuto" Checked="KeyboardIncrementChanged" IsChecked="true" GroupName="KeyboardIncrementProperty">
        1 (default)
        </RadioButton>
        <RadioButton Name="KeyboardIncrementCols" Checked="KeyboardIncrementChanged" GroupName="KeyboardIncrementProperty">
        20
        </RadioButton>
        <RadioButton Name="KeyboardIncrementRows" Checked="KeyboardIncrementChanged" GroupName="KeyboardIncrementProperty">
        50
        </RadioButton>
        <RadioButton Name="KeyboardIncrementBoth" Checked="KeyboardIncrementChanged" GroupName="KeyboardIncrementProperty">
        100
        </RadioButton>
      </StackPanel>
  </StackPanel>
</Grid>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Navigation
Imports System.Windows.Shapes

Namespace GridSplitter_Example
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub KeyboardIncrementChanged(sender As Object, e As RoutedEventArgs)
      If CType(KeyboardIncrementAuto.IsChecked, [Boolean]) Then
        myGridSplitter.KeyboardIncrement = 1
      ElseIf CType(KeyboardIncrementCols.IsChecked, [Boolean]) Then
        myGridSplitter.KeyboardIncrement = 20
      ElseIf CType(KeyboardIncrementRows.IsChecked, [Boolean]) Then
        myGridSplitter.KeyboardIncrement = 50
      ElseIf CType(KeyboardIncrementBoth.IsChecked, [Boolean]) Then
        myGridSplitter.KeyboardIncrement = 100
      End If
    End Sub

  End Class
End Namespace

16.37.GridSplitter
	16.37.1.	Define a GridSplitter and ShowsPreview Changed
	16.37.2.	GridSplitter and ResizeBehaviorChanged
	16.37.3.	Define a GridSplitter and Resize Direction Changed
	16.37.4.	Define a GridSplitter and Keyboard Increment
	16.37.5.	GridSplitter and DragIncrement Changed
	16.37.6.	Define a GridSplitter and Vertical Alignment Changed
	16.37.7.	Define a GridSplitter and Horizontal Alignment Changed