WPF VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. WPF
  4. Use the Mouse Wheel action methods that are defined by the IScrollInfo interface
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="ScrollViewer_Methods.Window1"
    Title="ScrollViewer IScrollInfo Sample"
    Loaded="onLoad">

IScrollInfo Interface Methods

    MouseWheelDown
    MouseWheelUp
    MouseWheelLeft
    MouseWheelRight
  

    
        
            
            
            
            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 spMouseWheelDown(sender As Object, e As RoutedEventArgs)
      DirectCast(sp1, IScrollInfo).MouseWheelDown()
    End Sub
    Private Sub spMouseWheelUp(sender As Object, e As RoutedEventArgs)
      DirectCast(sp1, IScrollInfo).MouseWheelUp()
    End Sub
    Private Sub spMouseWheelLeft(sender As Object, e As RoutedEventArgs)
      DirectCast(sp1, IScrollInfo).MouseWheelLeft()
    End Sub
    Private Sub spMouseWheelRight(sender As Object, e As RoutedEventArgs)
      DirectCast(sp1, IScrollInfo).MouseWheelRight()
    End Sub
  End Class
End Namespace