Lesson 7: Working with PictureBox in VB2019

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Load an image from a file path
    MyPicBox.Image = Image.FromFile("C:\Users\Documents\vb2019\vb2019images\fish.jpg")
End Sub

Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click
    ' Configure and show the OpenFileDialog
    If OFDSelectImage.ShowDialog() = DialogResult.OK Then
        ' Load the selected image
        Try
            ' Dispose of previous image to prevent memory leaks
            If MyPicBox.Image IsNot Nothing Then MyPicBox.Image.Dispose()
            
            ' Load the new image
            MyPicBox.Image = Image.FromFile(OFDSelectImage.FileName)
        Catch ex As Exception
            ' Handle errors (e.g., invalid image format)
            MessageBox.Show("Error loading image: " & ex.Message)
        End Try
    End If
End Sub