VB.Net Save Image From PictureBox to a Folder

How To Store an Image From PictureBox To a directory Using VB.Net

In this VB.NET Tutorial we will see How To Upload A Picture To a PictureBox And Save The Same Picture In any Folder On The Computer With a Unique Name That We Will Create Using Date And Time On A Button Click Event In Visual Basic.Net  Programming Language And Visual  Studio Editor.

Project Source Code:

Imports System.Drawing.Imaging

Public Class save_image_from_picturebox

' upload image 

    Private Sub ButtonUpload_Click(sender As Object, e As EventArgs) Handles ButtonUpload.Click

        Dim opf As New OpenFileDialog

        ' chose the images type

        opf.Filter = "Choose Image(*.jpg;*.png;*.gif)|*.jpg;*.png;*.gif"

        If opf.ShowDialog = DialogResult.OK Then

            ' get the image returned by OpenFileDialog 

            PictureBox1.Image = Image.FromFile(opf.FileName)

        End If

    End Sub

    ' button save

    Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click

        Dim svf As New SaveFileDialog()

        ' create a default name using date and time

        Dim fname As String

        fname = DateTime.Now.Year.ToString() + "_" + DateTime.Now.Month.ToString() + "_" + DateTime.Now.Day.ToString() + "_" + DateTime.Now.Hour.ToString() + "_" + DateTime.Now.Minute.ToString() + "_" + DateTime.Now.Second.ToString() + "." + ImageFormat.Jpeg.ToString()

        svf.FileName = fname

        If svf.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PictureBox1.Image.Save(svf.FileName)

        End If

    End Sub

End Class

OutPut:

---

Download Projects Source Code

▶ Get Java Projects

▶ Get C# Projects

▶ Get VB.Net Projects

▶ Get Java + C# + VB.Net + Python Projects

VB.Net Retrieve Image From Sql Database

VB.NET - How To Retrieve Image From SQL Server DataBase Using Visual Basic.Net

                                                                                                                         

In This VB.NET Tutorial We Will See How To Get And Display Image From Microsoft SQL Server DataBase Using Visual Basic .NET Programming Language.

Project Source Code:

Imports System.Data.SqlClient

Imports System.IO

Public Class VBNET_Get_Image_From_SQL

    Dim connection As New SqlConnection("Server= SAMSNG-PC; Database = TestDB; Integrated Security = true")

    Private Sub BTN_SHOW_Click(sender As Object, e As EventArgs) Handles BTN_SHOW.Click

        Dim command As New SqlCommand("select * from Table_Images where id = @id", connection)

        command.Parameters.Add("@id", SqlDbType.VarChar).Value = TextBoxID.Text

        Dim table As New DataTable()

        Dim adapter As New SqlDataAdapter(command)

        adapter.Fill(table)

        If table.Rows.Count() <= 0 Then

            MessageBox.Show("No Image For This Id")

        Else

            TextBoxID.Text = table.Rows(0)(0).ToString()

            TextBoxName.Text = table.Rows(0)(1).ToString()

            TextBoxDesc.Text = table.Rows(0)(2).ToString()

            Dim img() As Byte

            img = table.Rows(0)(3)

            Dim ms As New MemoryStream(img)

            PictureBox1.Image = Image.FromStream(ms)

        End If

    End Sub

End Class

///////////////OUTPUT:

---

More VB.NET

➜ VB.Net Courses

➜ VB.Net Projects

VB.NET - How To Get Image From DataGridView To PictureBox Using VB.NET

VB.NET - How To Set Image From DataGridView Into PictureBox In VBNET

                                                                                                                         

In This VB.NET Tutorial We Will See How To Display Images From DataGridView Into PictureBox In VB.NET Programming Language.

Project Source Code:

Imports System.IO

Imports System.Drawing.Imaging

Public Class VB_Get_Image_From_DataGridView_To_PictureBox

    Private Sub VB_Get_Image_From_DataGridView_To_PictureBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '  Create Datagridview image column

        Dim dgvImageColumn As New DataGridViewImageColumn

        ' set header text to the column

        dgvImageColumn.HeaderText = "Image"

        ' make the image layout stretch to display the entire image

        dgvImageColumn.ImageLayout = DataGridViewImageCellLayout.Stretch

        ' add the column to the datagridview

        DataGridView1.Columns.Add(dgvImageColumn)

        ' make the columns take all the datagridview width

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

        ' change the datagridview height

        DataGridView1.RowTemplate.Height = 150

        DataGridView1.AllowUserToAddRows = False

        ' create images and add the to the datagridview

        Dim img1 As Image

        img1 = Image.FromFile("D:\Images\img1.jpg")

        DataGridView1.Rows.Add(img1)

        Dim img2 As Image

        img2 = Image.FromFile("D:\Images\img2.jpg")

        DataGridView1.Rows.Add(img2)

        Dim img3 As Image

        img3 = Image.FromFile("D:\Images\img3.jpg")

        DataGridView1.Rows.Add(img3)

        Dim img4 As Image

        img4 = Image.FromFile("D:\Images\img4.jpg")

        DataGridView1.Rows.Add(img4)

        Dim img5 As Image

        img5 = Image.FromFile("D:\Images\img5.jpg")

        DataGridView1.Rows.Add(img5)

    End Sub

    ' DataGridView cell click

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim ms As New MemoryStream

        Dim img As Bitmap

        img = DataGridView1.CurrentRow.Cells(0).Value

        img.Save(ms, ImageFormat.Jpeg)

        PictureBox1.Image = Image.FromStream(ms)

        

    End Sub

End Class

///////////////OUTPUT:

Display Images From DataGridView Into PictureBox In VB

---

Download Projects Source Code

▶ Get Java Projects

▶ Get C# Projects

▶ Get VB.Net Projects

▶ Get Java + C# + VB.Net + Python Projects