Dim view_logobyte() As Byte = arr_info.Item(i).arrLogo If Not (IsNothing(view_logobyte)) Then imgBrush = Nothing imgBrush = New ImageBrush Using stream = New MemoryStream(view_logobyte) Dim bitmap = New BitmapImage() bitmap.BeginInit() bitmap.StreamSource = stream bitmap.CacheOption = BitmapCacheOption.OnLoad bitmap.EndInit() bitmap.Freeze() imgBrush.ImageSource = bitmap stream.Dispose() End Using view_reclogo.Stretch = Stretch.Uniform view_reclogo.Fill = imgBrush End If Dim mystoryboard As New Storyboard mystoryboard = CType(Me.Resources("come_details"), Storyboard) AddHandler mystoryboard.Completed, AddressOf comedetails_completed mystoryboard.Begin(Me)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)