Image resizing

[gyap88]

I m using vb 2005. I m importing a jpeg format image into form2. The image on the form will be dependant on the CustomerID. The CustomerID is taken from form1. I am also trying to allow user to select the size of the image by addding a combo box named ComboBox1.
The following is my code:

Form2
--------------------------

Sub Image(Byval CustomerID As String)
 Dim theImage As Image
    Dim filespec As String
    Dim scaleToPercent As Integer
    Dim imageAdjustmentPercent As Decimal
    Dim adjustedImageWidth, adjustedImageHeight As Integer
 
 filespec = "C:\Documents and Settings\Gary\My Documents\MP\" & CustomerID & ".jpeg"
        theImage = Image.FromFile(filespec)
 
 imageAdjustmentPercent = (scaleToPercent / 100)
 
 
        adjustedImageWidth = (theImage.Width * imageAdjustmentPercent)
        adjustedImageHeight = (theImage.Height * imageAdjustmentPercent)
        theImage = theImage.GetThumbnailImage(adjustedImageWidth, adjustedImageHeight, Nothing, Nothing)
 
        PictureBox1.Image = theImage
 
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
scaleToPercent=ComboBox1.Text

The image doesnt resize when the text in the comboxbox changed.
Can someone edit my code so that the image resize once the integer in the comboxbox change.(default integer in combobox is 100)

[Clanguage]

I noticed that you called your sub "Image". The framework uses the "Image" keyword in the system.drawing. I don't know if it is your problem but I would definitely change the name to avoid mysterious bugs.

[gyap88]

I have changed the name of the sub but the problem still exist.

Sub DisplayImage(Byval CustomerID As String)
Dim theImage As Image
Dim filespec As String
Dim scaleToPercent As Integer
Dim imageAdjustmentPercent As Decimal
Dim adjustedImageWidth, adjustedImageHeight As Integer
 
filespec = "C:\Documents and Settings\Gary\My Documents\MP\" & CustomerID & ".jpeg"
theImage = Image.FromFile(filespec)
 
imageAdjustmentPercent = (scaleToPercent / 100)
 
 
adjustedImageWidth = (theImage.Width * imageAdjustmentPercent)
adjustedImageHeight = (theImage.Height * imageAdjustmentPercent)
theImage = theImage.GetThumbnailImage(adjustedImageWidth, adjustedImageHeight, Nothing, Nothing)
 
PictureBox1.Image = theImage
 
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
scaleToPercent=ComboBox1.Text

I guess the problem is the failure to return scaleToPercent to sub DisplayImage.
Can anyone help me?

[Killer42]

Good point. You are trying to use the variable out of scope. It should be a form-level or global variable.