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
