タイトル : Re^3: 縮小画像の保存 投稿日 : 2009/07/27(Mon) 14:35 投稿者 : bin
Hongliang 様 下記のような形で保存は出来るようになったのですが、縮小はされないまま保存 されます。 縮小の方法をどのようにしてこの中にコーディングすればよいのでしょうか。 お手数ですが具体的にお教えいただければ有り難いです。 よろしくお願いします。 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形式で保存する bmp.Save("D:\写真他\テスト画像\test\Water lilies.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '後片付け bmp.Dispose() small.Dispose() End Sub |