Lesson 7: Mastering PictureBox Controls in VB2022

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Load image at runtime
    picDisplay.Image = Image.FromFile("C:\Images\sample.jpg")
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    ' Clear the image
    picDisplay.Image = Nothing
    
    ' Optional: Set a placeholder image
    ' picDisplay.Image = My.Resources.PlaceholderImage
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    If picDisplay.Image IsNot Nothing Then
        Dim saveDialog As New SaveFileDialog()
        saveDialog.Filter = "JPEG Image|*.jpg|PNG Image|*.png|Bitmap Image|*.bmp"
        saveDialog.Title = "Save Image As"
        
        If saveDialog.ShowDialog() = DialogResult.OK Then
            ' Determine format based on file extension
            Dim format As Imaging.ImageFormat
            Select Case Path.GetExtension(saveDialog.FileName).ToLower()
                Case ".jpg", ".jpeg"
                    format = Imaging.ImageFormat.Jpeg
                Case ".png"
                    format = Imaging.ImageFormat.Png
                Case ".bmp"
                    format = Imaging.ImageFormat.Bmp
                Case Else
                    format = Imaging.ImageFormat.Jpeg
            End Select
            
            picDisplay.Image.Save(saveDialog.FileName, format)
            MessageBox.Show("Image saved successfully!")
        End If
    Else
        MessageBox.Show("No image to save!")
    End If
End Sub

Dim imageList As New List(Of String)
Dim currentIndex As Integer = 0

Private Sub LoadImageGallery()
    ' Add images to the list
    imageList.Add("C:\Images\image1.jpg")
    imageList.Add("C:\Images\image2.jpg")
    imageList.Add("C:\Images\image3.jpg")
    
    ' Display first image
    If imageList.Count > 0 Then
        picDisplay.Image = Image.FromFile(imageList(0))
    End If
End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    If imageList.Count > 0 Then
        currentIndex = (currentIndex + 1) Mod imageList.Count
        picDisplay.Image = Image.FromFile(imageList(currentIndex))
    End If
End Sub

Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click
    If imageList.Count > 0 Then
        currentIndex = (currentIndex - 1 + imageList.Count) Mod imageList.Count
        picDisplay.Image = Image.FromFile(imageList(currentIndex))
    End If
End Sub