タイトル : Re^2: 画像を相対縮小して、保存 投稿日 : 2009/07/29(Wed) 19:56 投稿者 : bin
> 実際にテストしたわけではありませんが > > > 画像の元サイズは分かっているのでしょうか? > 元サイズが分かれば高さ、幅を同じ比率で縮小、拡大すればよいのでは? > > > > Dim small As Bitmap = New Bitmap(bmp, 150, 120) > > > Dim small As Bitmap = New Bitmap(bmp, org_size_w * 0.25, org_size_h * 0.25) レス 有難うございます。 元画像はファイル名がわかっているだけです。 ( 150, 120 )では縮小後の縦長の画像が元画像の縮小版ではなく なると思います。 そこで相対縮小にしようとしました。 環境は画像は JPG VB2008 expess edition です。 元画像が縦長か横長かがわかればよいのですが、ご存じでしたら お教えください。 よろしくお願いします。 |