NEA/fmProfile.xaml.vb

   1 Imports System.IO
   2 Imports System.Drawing
   3
   4 Public Class fmProfile
   5     Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles MyBase.Loaded
   6         Dim ds As New NEADataSet
   7         Dim da As New NEADataSetTableAdapters.User_DetailsTableAdapter
   8         Dim dt As New NEADataSet.User_DetailsDataTable
   9         Dim dr As NEADataSet.User_DetailsRow
  10
  11         dt = da.GetData()
  12         Dim Q As String = "[FirstName] =  'Alan'"
  13         Dim result() As NEADataSet.User_DetailsRow = dt.Select(Q)
  14
  15         Dim bytes As [Byte]() = result(0).ProfilePic
  16         Dim ms As New MemoryStream(bytes)
  17
  18         Dim bi As New BitmapImage()
  19         bi.BeginInit()
  20         bi.StreamSource = ms
  21         bi.EndInit()
  22
  23         profilePic.Source = bi
  24
  25     End Sub
  26
  27     Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
  28         Me.Close()
  29     End Sub
  30
  31
  32 End Class