質問: 画像を保存用ウィンドウを開き保存 vb6.0にて、pictureboxの画像に、"ファイル保存用ウィンドウ?を開き" 保存することは可能でしょうか? ファイル読み込み用ウィンドウを用いてのファイル読み込みはコモンダイアログを用い行えますが、画像の保存方法を同じように行う方法がわかりません。 ieにて”名前をつけて保存”がありますが、あのような感じで画像を保存したいのです。 また、pictureboxの範囲内のみならず、フォームをや他のコントロールを含めた画像を保存することは可能でしょうか? ご教授、お願いします。
回答: コモンダイアログ自体は、読み込みや保存の処理を行いません。 あくまで、ファイル名を取得するだけです。 ピクチャ ボックスの画像を保存するためには、savepicture を使います。 下記の例の、"test.bmp"の部分を、コモンダイアログで取得したファイル名の変数に置き換えればよい。 savepicture ステートメントの例 private sub form_click () ' 変数を宣言します。 dim cx, cy, limit, radius as integer, msg as string scalemode = vbpixels ' ピクセル単位を設定します。 autoredraw = true ' 有効にします。 width = height ' 幅を高さと同じにします cx = scalewidth / 2 ' x 軸位置を設定します。 cy = scaleheight / 2 ' y 軸位置を設定します。 limit = cx ' 円のサイズの制限を設定します。 for radius = 0 to limit ' 半径を設定します。 circle (cx, cy), radius, rgb(rnd * 255, rnd * 255, rnd * 255) doevents ' ほかの処理に制御を渡します。 next radius msg = "フォームのグラフィックスを test.bmp というファイル名" msg = msg & "で保管します。[ok] ボタンを選択してください。" msgbox msg savepicture image, "test.bmp"' ピクチャをファイルに保管します。 end sub