Ändra flera bilders storlek samtidigt i Visual Basic 2010?

[greenboy]

Kan nån hjälpa mig med att få en start hur man ändrar storlek samtidigt för de bilder, som vman väljer via OpenDialog i Visual Basic 2010?

[.M]

Koden kommer antagligen inte att fungera då jag egentligen inte pysslat med VB på flera år...

Dim newWidth As Integer = 100
Din newHeight as Integer = 100
Dim file as String
For Each file in OpenFileDialog1.FileNames
Dim bmp As new Bitmap(file)
Dim bmp2 As New Bitmap(newWidth, newHeight)
Dim g as Graphics = Graphics.FromImage(bmp2)
g.DrawImage(bmp, 0, 0, newWidth, newHeight)
bmp2.Save("C:\Temp\bild2.jpg")
Next

[greenboy]

Koden kommer antagligen inte att fungera då jag egentligen inte pysslat med VB på flera år...

Dim newWidth As Integer = 100
Din newHeight as Integer = 100
Dim file as String
For Each file in OpenFileDialog1.FileNames
   Dim bmp As new Bitmap(file)
   Dim bmp2 As New Bitmap(newWidth, newHeight)
   Dim g as Graphics = Graphics.FromImage(bmp2)
   g.DrawImage(bmp, 0, 0, newWidth, newHeight)
   bmp2.Save("C:\Temp\bild2.jpg")
Next

 

Denna kod verkar lovande, men hur får man alla förminskade bilderna sparade

med samma namn, som de ursprungliga?

 

Nu verkar det, som alla blir sparade med samma namn.

[greenboy]

Här kommer koden, jag försöker förminska flera bilder samtidigt. Får inga felmeddelanden, men

det fungerar inte som det skall.

 

Det är främst denna rad, som inte fungerar, jag får inte bilden sparad till hårddisken från

RectangleImage komponenten.

 

RectangleImage.BackgroundImage.Save("c:\Hemsida\" + DirTreeView.SelectedNode.Text + "\" + ShowLabel4.Text, System.Drawing.Imaging.ImageFormat.Jpeg)

 

Kan nån hjälpa mig?

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

 

For Each file2 In OpenFileDialog1.FileNames

 

ImageLabel.Text = OpenFileDialog1.FileName

 

RectangleImage.BackgroundImage = Image.FromFile(file2)

 

Dim Newsize As New Size(100, 100)

 

ResizedImage = New Bitmap(RectangleImage.BackgroundImage, Newsize)

 

RectangleImage.BackgroundImage = ResizedImage

 

RectangleImage.BackgroundImageLayout = ImageLayout.Stretch

 

DirTreeView.SelectedNode.Nodes.Add(CreateTextBox.Text)

 

SaveFileDialog1.AddExtension = True

 

SaveFileDialog1.DefaultExt = Path.GetExtension(ImageLabel.Text)

 

ShowLabel4.Text = Path.GetFileName(ImageLabel.Text)

 

ShowLabel3.Text = Path.GetFileNameWithoutExtension(ImageLabel.Text)

 

MsgBox("c:\Hemsida\" + DirTreeView.SelectedNode.Text + "\" + ShowLabel4.Text, MsgBoxStyle.OkOnly)

 

Dim path2 As String = "c:\Hemsida\" + DirTreeView.SelectedNode.Text + "\" + ShowLabel3.Text + ".txt"

 

Dim fs As FileStream = File.Create(path2)

 

DirListView.Items.Add(ShowLabel3.Text + ".txt")

 

ResizedImage.Dispose()

 

Try

 

Select Case SaveFileDialog1.FilterIndex

 

Case 1

 

RectangleImage.BackgroundImage.Save("c:\Hemsida\" + DirTreeView.SelectedNode.Text + "\" + ShowLabel4.Text, System.Drawing.Imaging.ImageFormat.Jpeg)

 

Case 2

 

RectangleImage.BackgroundImage.Save("c:\Hemsida\" + DirTreeView.SelectedNode.Text + "\" + ShowLabel4.Text, System.Drawing.Imaging.ImageFormat.Gif)

 

End Select

 

Catch ex As Exception

 

' MsgBox("Bildformatet felaktig", MsgBoxStyle.OkOnly)

 

End Try

 

Next

 

End If

 

End Sub

 

[.M]

Det ser ut som att du öppnar en bild i variabeln RectangleImage.BackgroundImage, Du skapar en omskalad bild i variabeln ResizedImage Sen sparar du RectangleImage.BackroundImage... Altså sparar du om orginalbilden och inte den nedskalade?

[greenboy]

Det ser ut som att du öppnar en bild i variabeln RectangleImage.BackgroundImage, Du skapar en omskalad bild i variabeln ResizedImage Sen sparar du RectangleImage.BackroundImage... Altså sparar du om orginalbilden och inte den nedskalade?

 

Det jag vill är att spara den omskalade bilden.

Kan nån hälpa mig att få det så att jag sparar den omskalade bilden?