Add an image to contact

Author: vbjay

EF Sqlite/Contacts/Contact.vb

@@ -13,8 +13,20 @@ Public Class Contact
     Property EmailAddress As String
     <Required>
     Property Birthdate As Date = Now.Date.AddYears(-18)
+    <NotMapped>
+    ReadOnly Property Image As Image
+        Get
+            If If(ImageBytes?.Length, 0) = 0 Then Return Nothing
+            Using mem As New IO.MemoryStream(ImageBytes)
+                Using tmp = Image.FromStream(mem)
+                    Return DirectCast(tmp.Clone(), Image)
+                End Using
+            End Using
+        End Get
+    End Property
+    Property ImageBytes As Byte()
 
-    Public Overrides Function ToString As String
+    Public Overrides Function ToString() As String
         Return $"ContactID: {ContactID}, Name: {Name}, EmailAddress: {EmailAddress}"
     End Function
 End Class

EF Sqlite/Form1.Designer.vb

@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ImageColumn.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <metadata name="ContactBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>

EF Sqlite/Form1.resx

@@ -47,5 +47,39 @@ Public Class Form1
 
 
 
+    End Sub
+    Function GetImage() As (Image As Byte(), Success As Boolean)
+        Dim bytes As Byte()
+        Dim ofd As New OpenFileDialog With {
+         .Title = "Select Image",
+         .Filter = "Image files|*.jpg;*.png;*.gif;*.bmp|All files (*.*)|*.*",
+         .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
+         }
+        Dim dlg = ofd.ShowDialog
+
+        If dlg = DialogResult.OK Then
+            Try
+                bytes = My.Computer.FileSystem.ReadAllBytes(ofd.FileName)
+                Using mem As New IO.MemoryStream(bytes)
+                    Using tmp As Image = Image.FromStream(mem) ' make sure it is a valid image
+                        Return (bytes, True)
+                    End Using
+                End Using
+
+            Catch ex As Exception
+                MessageBox.Show($"Could not load as an image.{ex.Message}", "Error Loading Image", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+            End Try
+        ElseIf dlg = DialogResult.Cancel Then
+            If MessageBox.Show($"Clear Image?", "Unset Image", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then Return (Nothing, True)
+        End If
+        Return (Nothing, False)
+    End Function
+
+    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
+        If e.ColumnIndex = ImageColumn.Index AndAlso Not DataGridView1.Rows(e.RowIndex).IsNewRow Then
+            Dim record As Contact = DataGridView1.Rows(e.RowIndex).DataBoundItem
+            Dim img = GetImage()
+            If img.Success Then record.ImageBytes = img.Image
+        End If
     End Sub
 End Class