Gefunden.
Für alle, die Ihre 10.000 Urlaubsfotos für eine 10MB Hompage schrumpfen lassen müssen:
Dim BildKlein As New Bitmap(w, h, BildGross.PixelFormat)
Dim gr As System.Drawing.Graphics = gr.FromImage(BildKlein)
gr.DrawImage(BildGross, New Rectangle(0, 0, w, h))
BildKlein.Save("BildKlein.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
gr.Dispose()
Klaas
| Betreff |
Von |
Datum |
|
|
|
|
G.
Guest
|
20.12.2004 02:25 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
