Bild "resize" wie?

[neopayne]

Hallo,

ich habe kaum Ahnung von VB muss aber ganz dringend ein kleines Tool schreiben. In dem Prog. sollen jpg Dateien eingelesen werden und dann auf eine bestimmte größe verkleinert werden z.B. 800x600px. Super wäre noch wenn ich einen namen z.B. Urlaub1 eingeben kann und die Bilder werden dann Urlaub1_1, Urlaub1_2, Urlaub1_3 usw. genannt.

Vielleicht kennt einer ein Tutorial oder ein Beispielscript. Ich habe keins gefunden.

 

[AtomSoldier]

Willst du die Bilder abspeichern ?

Das geht so:
SavePicture
z.b.

 Call SavePicture(Name des Steuerelements wo die Bilder drin sind,Dateiname des Bildes)
 also,
 Call SavePicture(PictureBox1.Picture, "Urlaub1.jpg")

 

[neopayne]

ok so funktioniert schonmal das abspeicher, aber die Größe wird jetzt ja noch nicht verändert wie kann man das machen?

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture("c:\test.jpg")
End Sub

Private Sub Command3_Click()
 Call SavePicture(Picture1, "test.jpg")
 Call SavePicture(Picture1.Picture, "c:\duuu.jpg")
End Sub