タイトル : 画像を相対縮小して、保存 投稿日 : 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 |