sdk/samples/WPFSamples/SafeFileUploadPartialTrustSample/visualbasic/imagecustomcontentstate.vb

   1 Imports System
   2 Imports System.Windows.Media
   3 Imports System.Windows.Navigation
   4
   5 <Serializable()> _
   6     Public Class ImageCustomContentState
   7     Inherits CustomContentState
   8
   9     Public Sub New(ByVal imageSource As ImageSource, ByVal filename As String)
  10         Me.imageSource = imageSource
  11         Me.filename = filename
  12     End Sub
  13
  14     Public Overrides Sub Replay(ByVal navigationService As NavigationService, ByVal mode As NavigationMode)
  15         Dim homePage As HomePage = DirectCast(navigationService.Content, HomePage)
  16         homePage.viewImage.Source = Me.imageSource
  17         homePage.nameLabel.Content = Me.filename
  18     End Sub
  19
  20     Public Overrides ReadOnly Property JournalEntryName() As String
  21         Get
  22             Return Me.filename
  23         End Get
  24     End Property
  25
  26     Private filename As String
  27     Private imageSource As ImageSource
  28
  29 End Class
  30
  31
  32