投稿日 | : 2005/01/14(Fri) 13:13 |
投稿者 | : ひろぉ |
Eメール | : |
URL | : |
タイトル | : Re^6: 画像のサイズを変更する方法 |
> 一度下記を試して見て下さい。
> Private Sub Command1_Click()
> Picture1.AutoRedraw = True
> Picture1.Picture = LoadPicture("c:\test.bmp")
> Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
> SavePicture Picture1.Image, "c:\MyBmp.bmp"
> End Sub
上記のコードでなぞが解けました。
サイズ変更した画像を保存したいときはPictureBoxのPictureを保存するのではなく
Imageを保存しなければいけなかったんですね^^;
これで画像自体のサイズを変更することができます。
最後までありがとうございましたm(__)m