a loop in my program

[stejano]

this is my code

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'apri file, open file
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)


End If

Label1.Text = "altezza immagine " & PictureBox1.Image.Height & " " & vbCrLf & "larghezza immagine" & PictureBox1.Image.Width & ""

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'salvataggio, 'save
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

PictureBox1.Image.Save(SaveFileDialog1.FileName)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'ridimensionamento, resize
Dim i
i = TextBox1.Text

Dim ReBMP As New Bitmap(PictureBox1.Image, PictureBox1.Image.Width * i, PictureBox1.Image.Height * i)
PictureBox1.Image = ReBMP
Label1.Text = "altezza immagine " & PictureBox1.Image.Height & " " & vbCrLf & "larghezza immagine" & PictureBox1.Image.Width & ""
End Sub




now I want to repeat my program for every photo that I select in fileopendialog.
I've activated multiselect function, and i think to insert it a loop in my program , a for, but i don't understrand where I can insert it and how can i insert it...
can you help me????
thanks!!!

[Atheist]

Please wrap your code in [VBCODE ] [/VBCODE ] tags to make it more readable.
Now about that loop. Heres how it works:

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK
   For Each str As String In OpenFileDialog1.FileNames
             MessageBox.Show(str)
   Next
End If

[stejano]

ok I can to do it...and I do a button with this code

[VBCODE ]
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each filename As String In OpenFileDialog1.FileNames
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Label1.Text = filename
Dim i
i = TextBox1.Text

Dim ReBMP As New Bitmap(PictureBox1.Image, PictureBox1.Image.Width * i, PictureBox1.Image.Height * i)
PictureBox1.Image = ReBMP




PictureBox1.Image.Save(Label1.Text)



Next


End If
End Sub
[/VBCODE ]


I want to overwrite files .png with the files that I load in picturebox and resize .
so I've associated filename = label1.text....(the path of load)...then I use to save them PictureBox1.Image.Save(Label1.Text)....but it's wrong...vb give me an error
why???

[JuggaloBrotha]

he meant the vbcode tag which is: [VBCODE ] without the space between the E and the ]

also what error is vb giving you?

[stejano]

generic error in GDI+


when debug arrive at picturebox1.image.save(label1.text)

[stejano]

I've find another error ....if I try with a savedialog....the program run but save always the same image....but I've selected more images.....why..heeelp!!