Add Multiple Pictures Dynamically and Show the Selected Picture in VB.NET

Submitted by donbermoy on Wednesday, May 13, 2015 - 23:18.

This tutorial will teach you how to create a program that will add multiple pictures dynamically and will show the selected picture in the picturebox using vb.net. 1. Let's start with creating a Windows Form Application for this tutorial by following the following steps in Microsoft Visual Studio: Go to File, click New Project, and choose Windows Application. 2. Next, add only one Button named Button1 and one PictureBox named PictureBox1 in your Form. 3. Now, we will do the coding. We will first declare the variables that we will going to use specially the OpenFileDialog that will filter all the image files.

    Dim ofd As New OpenFileDialog With {.Filter = "Images|*.jpg;*.bmp;*.png;*.gif;*.wmf"}
    Dim pic As PictureBox
    Dim wid As Int32

Next, we will convert the pictures to be send it into the picturebox after clicking it. Meaning, this will be displayed into the picturebox after clicking one image in the form.

    Sub convertPic(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'CONVERT SENDER INTO PICTUREBOX
        pic = CType(sender, PictureBox)
        PictureBox1.Image = pic.Image
    End Sub

Now, we will code for our browse buttons that will add multiple images to the form.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ofd.Multiselect = True
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            For Each t In ofd.FileNames
                pic = New PictureBox
                pic.Image = Image.FromFile(t)
                pic.SizeMode = PictureBoxSizeMode.Zoom
                pic.SetBounds(wid, 10, 100, 100)
                wid += 105
                AddHandler pic.Click, AddressOf convertPic
                Me.Controls.Add(pic)
            Next
        End If
    End Sub

Here's the full source code:

Public Class Form1
    Dim ofd As New OpenFileDialog With {.Filter = "Images|*.jpg;*.bmp;*.png;*.gif;*.wmf"}
    Dim pic As PictureBox
    Dim wid As Int32
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ofd.Multiselect = True
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            For Each t In ofd.FileNames
                pic = New PictureBox
                pic.Image = Image.FromFile(t)
                pic.SizeMode = PictureBoxSizeMode.Zoom
                pic.SetBounds(wid, 10, 100, 100)
                wid += 105
                AddHandler pic.Click, AddressOf convertPic
                Me.Controls.Add(pic)
            Next
        End If
    End Sub
 
    Sub convertPic(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'CONVERT SENDER INTO PICTUREBOX
        pic = CType(sender, PictureBox)
        PictureBox1.Image = pic.Image
    End Sub
End Class

Output:

For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below. Best Regards, Engr. Lyndon Bermoy IT Instructor/System Developer/Android Developer/Freelance Programmer Mobile: 09488225971 Landline: 826-9296 E-mail:[email protected] Add and Follow me on Facebook: https://www.facebook.com/donzzsky Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Comments

out of memory

this is very nice code example, i'm actually implementing this example with a similar program i have but i'm dealing with 60 or more pictures... it shows like 30 images only and gives me an error saying "out of memory"...can you help with this problem please?.. btw, i

upload multiple images

You can use threading, maybe....

Add new comment

Add new comment
2014 views