画像ファイル(Bmp)を拡大・縮小保存するには？

解決

ＹＯＳＨＩＹＵＫＩ URL 2003-05-23 02:03:27 No: 107238

Imageオブジェクトにロードした画像ファイルを
BMPに保存したいのですが、うまくいきません。
ご存知の方、お教えください。m(_ _)m
ロードしたオブジェクトのWidth、Heightを
変えてSavePictureしても駄目なんですね。

Say 2003-05-23 04:05:28 No: 107239

>Imageオブジェクト
Imageコントロールのことでしょうか？
Stretch=Trueにしても、見た目が変化するだけで、
Pictureデータはもとのままです。
一旦、PictureBoxにPaintPictureで拡大縮小してから
保存してはいかがでしょう？

ＹＯＳＨＩＹＵＫＩ URL 2003-05-23 19:17:00 No: 107240

>Say
>Imageコントロールのことでしょうか？

すいません。間違えました。Imageコントロールです。m(_ _)m
PaintPictureしてからSavePictureだと表示上は描画
できているんですが、SavePictureで「380 プロパティの値が
不正です。」のエラーで落ちてしまっているんですよ。

すーさん 2003-05-23 20:44:01 No: 107241

Formにピクチャーボックスを2個コマンドボタンを1個配置

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c:\windows\グリーンストーン.bmp")
Picture1.AutoSize = True
Picture2.Width = Picture1.Width * 2
Picture2.Height = Picture1.Height * 2
Picture2.PaintPicture Picture1.Picture, 0, 0, Me.Width, Me.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Picture2.Refresh
SavePicture Picture2.Image, "C:\test.bmp"

画像ファイルはXPでの私の環境です。

ＹＯＳＨＩＹＵＫＩ URL 2003-05-24 03:22:59 No: 107242

>すーさん

私の環境(WinNT4.0+VB6(SP5))では、Refresh時に
描画したものが消えてしまっていたんですが、
なんてことはないAutoRedrawがFalseになって
いただけなんですね。(^^;)
おかげ様で解決しました。ありがとうございました。m(_ _)m