Mega Code Archive
BitmapImage as Resources
//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 FormatConvertedExample
Inherits Page
Public Sub New()
End Sub
Public Sub PageLoaded(sender As Object, args As RoutedEventArgs)
Dim grayImage As New Image()
grayImage.Width = 200
grayImage.Margin = New Thickness(5)
Dim fcb As New FormatConvertedBitmap(DirectCast(Me.Resources("masterImage"), BitmapImage), PixelFormats.Gray4, Nothing, 0)
grayImage.Source = fcb
Grid.SetColumn(grayImage, 2)
Grid.SetRow(grayImage, 1)
convertedGrid.Children.Add(grayImage)
End Sub
End Class
End Namespace