tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル画像を相対縮小して、保存
記事No9220
投稿日: 2009/07/29(Wed) 18:44
投稿者bin
 下記のコーディングは絶対寸法で縮小に指定をして保存している
のですが、これを例えば 0.25  0.4 のように相対寸法で指定し保
存したいのです。
 どこをどのように修正すればよいのかお教えください。


   Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
        ' 画像を作成する
        Dim bmp As New Bitmap("D:\ 写真他 \ テスト画像 \jpg\
Water lilies.jpg")

        'bmp を 150x120 の大きさにした Bitmap オブジェクトを
作成
      
        Dim small As Bitmap = New Bitmap(bmp, 150, 120)
        'JPG 形式で保存する
        small.Save("D:\ 写真他 \ テスト画像 \test\Water
lilies.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

        ' 後片付け
        bmp.Dispose()
        small.Dispose()

    End Sub

[ツリー表示へ]
タイトルRe: 画像を相対縮小して、保存
記事No9221
投稿日: 2009/07/29(Wed) 19:25
投稿者nobu
実際にテストしたわけではありませんが

>  下記のコーディングは絶対寸法で縮小に指定をして保存している
> のですが、これを例えば 0.25  0.4 のように相対寸法で指定し保
> 存したいのです。

画像の元サイズは分かっているのでしょうか?
元サイズが分かれば高さ、幅を同じ比率で縮小、拡大すればよいのでは?


>         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)

[ツリー表示へ]
タイトルRe^2: 画像を相対縮小して、保存
記事No9222
投稿日: 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 です。
 元画像が縦長か横長かがわかればよいのですが、ご存じでしたら
お教えください。
 よろしくお願いします。
  


 

[ツリー表示へ]
タイトルRe^3: 画像を相対縮小して、保存
記事No9223
投稿日: 2009/07/29(Wed) 20:29
投稿者nobu
私が投稿した意図はサイズが分かっているならサイズに倍率を掛け算すれば
良いのでは...です。
ファイル名が分かっているだけなら元画像を取得・保存してサイズを調べれば良いわけで。
サイズがまだ分かっていなければサイズ取得方法を探せば...です。

すでに保存されている画像ならビュアーででもサイズは分かると思います。
ソフトでサイズを取得の方法も検索すればあると思いますが。
下記で参考になるものはないでしょうか。 (URLの先頭のhは除いてある)

Webからファイルをダウンロードする
http://homepage1.nifty.com/rucio/main/dotnet/Samples151/Sample166DownloadFile.htm


画像を拡大・縮小する
http://homepage1.nifty.com/rucio/main/dotnet/Samples/Sample141ImageMagnify.htm


処理を段階的に行うことも考えてみたらいかがでしょうか。



>  元画像はファイル名がわかっているだけです。
>  ( 150, 120 )では縮小後の縦長の画像が元画像の縮小版ではなく
> なると思います。
>  そこで相対縮小にしようとしました。
>  環境は画像は JPG VB2008 expess edition です。
>  元画像が縦長か横長かがわかればよいのですが、ご存じでしたら
> お教えください。

[ツリー表示へ]
タイトルRe^4: 画像を相対縮小して、保存
記事No9224
投稿日: 2009/07/29(Wed) 20:53
投稿者bin
> 私が投稿した意図はサイズが分かっているならサイズに倍率を掛け算すれば
> 良いのでは...です。
> ファイル名が分かっているだけなら元画像を取得・保存してサイズを調べれば良いわけで。
> サイズがまだ分かっていなければサイズ取得方法を探せば...です。
>
> すでに保存されている画像ならビュアーででもサイズは分かると思います。
> ソフトでサイズを取得の方法も検索すればあると思いますが。
> 下記で参考になるものはないでしょうか。 (URLの先頭のhは除いてある)
>
> Webからファイルをダウンロードする
> http://homepage1.nifty.com/rucio/main/dotnet/Samples151/Sample166DownloadFile.htm
>
>
> 画像を拡大・縮小する
> http://homepage1.nifty.com/rucio/main/dotnet/Samples/Sample141ImageMagnify.htm
>
>
> 処理を段階的に行うことも考えてみたらいかがでしょうか。
>

 よくわかりました。ご紹介いただいたところも含めもう少し調べて
みます。どうも有難うございました。

[ツリー表示へ]