x:Class="ImageElementExample.CroppedImageExample"
Title="CroppedImage Example"
Loaded="PageLoaded">
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Documents
Imports System.Windows.Controls
Imports System.Windows.Navigation
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Namespace ImageElementExample
Public Partial Class CroppedImageExample
Inherits Page
Public Sub New()
End Sub
Public Sub PageLoaded(sender As Object, args As RoutedEventArgs)
Dim croppedImage As New Image()
croppedImage.Width = 200
croppedImage.Margin = New Thickness(5)
Dim cb As New CroppedBitmap(DirectCast(Me.Resources("masterImage"), BitmapSource), New Int32Rect(30, 20, 105, 50))
croppedImage.Source = cb
Dim chainImage As New Image()
chainImage.Width = 200
Dim chained As New CroppedBitmap(cb, New Int32Rect(30, 0, CInt(Math.Truncate(cb.Width)) - 30, CInt(Math.Truncate(cb.Height))))
chainImage.Source = chained
End Sub
End Class
End Namespace