xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="ScrollViewer_Methods.Window1"
Title="ScrollViewer IScrollInfo Sample"
Loaded="onLoad">
IScrollInfo Interface Methods
Adjust Line Up
Adjust Line Down
Adjust Line Right
Adjust Line Left
Adjust Page Up
Adjust Page Down
Adjust Page Right
Adjust Page Left
Rectangle 3
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Text
Namespace ScrollViewer_Methods
Public Partial Class Window1
Inherits Window
Private Sub onLoad(sender As Object, e As System.EventArgs)
DirectCast(sp1, IScrollInfo).CanVerticallyScroll = True
DirectCast(sp1, IScrollInfo).CanHorizontallyScroll = True
DirectCast(sp1, IScrollInfo).ScrollOwner = sv1
End Sub
Private Sub spLineUp(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).LineUp()
End Sub
Private Sub spLineDown(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).LineDown()
End Sub
Private Sub spLineRight(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).LineRight()
End Sub
Private Sub spLineLeft(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).LineLeft()
End Sub
Private Sub spPageUp(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).PageUp()
End Sub
Private Sub spPageDown(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).PageDown()
End Sub
Private Sub spPageRight(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).PageRight()
End Sub
Private Sub spPageLeft(sender As Object, e As RoutedEventArgs)
DirectCast(sp1, IScrollInfo).PageLeft()
End Sub
End Class
End Namespace