”画像の取り込みなんですが”の続きです。
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です。困ってます。
教えて下さい。お願いします。