Resize large image using openfiledialog inputing to picturebox

Question

0.00/5 (No votes)

See more:

hello guys can you please help, how to resize large image to put on picturebox1 so that if the image was already resize, it easy to insert into database

What I have tried:

Dim OFD As New OpenFileDialog

      OFD.Filter = "Jpeg Images *.jpg|*.jpg|Bitmap Images *.bmp|*.bmp|PNG Images *.PNG|*.PNG"

      If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then

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

          Dim Newpic As New Bitmap(PictureBox1.Width, PictureBox1.Height)

          Dim g As Graphics = Graphics.FromImage(Newpic)

          g.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Width, PictureBox1.Height)



      End If

Posted 18-Dec-19 22:49pm

Member 13910887

Updated 18-Dec-19 22:53pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Member 13910887 · Answer 1 · 2019-12-18T22:54:00

this is my save function

Private Sub SAVECATEGORY_Click(sender As Object, e As EventArgs) Handles SAVECATEGORY.Click

      Dim arrImage() As Byte

      Dim mstream As New System.IO.MemoryStream()
      Dim FileSize As UInt32
      FileSize = mstream.Length
      'CLOSES THE CURRENT STREAM AND RELEASE ANY RESOURCES ASSOCIATED WITH THE CURRENT STREAM

      '  Dim ms As New MemoryStream  '...........need to Imports System.IO from general

      ' PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
      ' PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Gif)
      PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png) ' ........save IMAGE
      'RETURNS THE ARRAY OF UNSIGNED BYTES FROM WHICH THIS STREAM WAS CREATED
      arrImage = mstream.GetBuffer()
      mstream.Close()

      If PictureBox1.Image Is Nothing Then
          MessageBox.Show("Please Insert image ")
          addcategoryclear()           'you call ddcategoryclear()  to clear textbox and picturebox
      ElseIf TextBox1.Text = "" Then
          MessageBox.Show("Please Insert Image Name")
          addcategoryclear()           'you call ddcategoryclear()  to clear textbox and picturebox
      Else
          '..............
          '..............
          cn.Open()
          Dim command As New MySqlCommand("INSERT INTO `category`( `IMG`, `NAME`) VALUES (@IMG,@NAME)", cn)

          With command.Parameters
              .AddWithValue("@IMG", arrImage)
              '  .Add("@IMG", MySqlDbType.Blob).Value = mstream.ToArray()
              .AddWithValue("NAME", TextBox1.Text)
          End With

          If command.ExecuteNonQuery() = 1 Then

              MessageBox.Show("You Successfully Save")

              addcategoryclear() 'you call ddcategoryclear()  to clear textbox and picturebox
              loadcategory()
          Else
              MessageBox.Show("Something Wrong Pleas Try again")
          End If
          cn.Close()
      End If
      Me.Refresh()
  End Sub