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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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での私の環境です。