※ ChatGPTを利用し、要約された質問です（原文：”画像の取り込みなんですが”の続きです。）
画像の取り込み方法と保存する際のエラーについて
このQ&Aのポイント
質問者は画像の取り込み方法を知りたくて、オンラインの質問サイトで情報を得ました。
質問者はForm1とForm2という2つのフォームで画像の取り込みと保存を行うプログラムを作成しました。
しかし、Form2をクリップボードに貼り付けた後、保存のダイアログが表示されずプログラムが停止してしまいます。どうすれば解決できるでしょうか？
http://oshiete1.goo.ne.jp/kotaeru.php3?q=185224
で画像の取り込みかたを参照するよう教えて頂きました。
Form1:取り込み開始のコマンドボタン
Form2:データと画像が貼り付けてあるForm
でForm1のコマンドボタンを押すと、Form2をクリップボードに貼り付けて、コモンダイアログを使って.jpgファイルに保存というプログラムを組んでます。
クリップボードへアクティブフォームを貼り付けた後、ダイアログが表示されずどうしてもストップしてしまいます。Formをクリックするとダイアログが表示されてファイル操作ができます。どうしてつまづいてしまうんでしょう？
Call SendInput(3, inpInfomation(0), Len(inpInfomation(0)))
'Windowsに処理を渡す（クリップボードに画像がわたる）
DoEvents
このあとに、
Dim s As Integer
On Error GoTo Err_Cancel:
CommonDialog1.CancelError = True
CommonDialog1.Filter = "JPGファイル (*.jpg)|*.jpg"
CommonDialog1.ShowSave
s = CliptoJPEG(CommonDialog1.FileName, 30, False)
Exit Sub
Err_Cancel:
Exit Sub
"CliptoJPEG"は SaveJPG.DLLのjpg変換の関数です。
OSはWIN/NT Ver4.0です。困ってます。
教えて下さい。お願いします。
お礼
ありがとうございます。 早速試してみます。
補足
返答遅れましてすみません。 いろいろ試してみたのですが、うまくいきません。 ところが、１枚のフォーム上ですと、うまくいきます。 複数のフォームのあるプロジェクトで他のフォームから Call fucSnapShot で Subプロシージャへ移動させると、そこでストップしてしまいます。 ですので、クリップボードにもキャプチャされません。 フォームをさわるとまた動き出します。 お手数ですが、教えてください。