画像を縮小するには？ (ID:142073)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さんありがとうございました サンプルと殆ど同じですが、以下の様にして解決しました Public Function CreateThumbnail(Byval Oigin as Image,Byval w as Integer,Byval h as Integer) as Image dim ThumbnailB as Bitmap = New Bitmap(w,h) dim g as Graphics = Graphics.FromImage(ThumbailB) g.InterpolationMode=Drawing2D.InterpolationMode.HighQualityBicubic g.DrawImage(Origin,0,0,w,h) g.Dispose() Return ThumbnailB End Function Public Sub FineReduce(Byval Origin as Image,Byval Filename as String) dim ThumbnailB as Image=Thumbnail(Origin,Origin.Width/5,Origin.Height/5) ThumbnailB.Save(Filename,System.Drawing.Imaging.ImageFormat.Jpeg) End Sub 上記二つのFunctionを作り、FineReduceを呼び出す事で画像は縮小できました。 これまでにも何度か教えて頂き、本当に感謝しております。 菓子折りでも持ってお礼に上がりたい気持ちです。