vb6で画面コピーで不具合対応方法

締切済

質問者：kan_0101
質問日時：2009/02/19 16:58
回答数：1件

始めまして。
OSは　XP　Pro　SP2
VB6で、顧客情報のデータ入力画面に入力画面のハードコピーをするためのボタンをつくり、ボタンを押したらクリップボードの内容をPictureBoxにコピーするようにして、その内容を印刷するようにしたいのですが２つ不具合が発生してます。
下記２つの不具合の原因、対応方法を教えて頂きたくお願いします。
　１．アクティブな画面でなく全体が印刷される。
　２．画面を起動して一人目の顧客では入力画面では印刷されず、二人目の顧客を表示した状態で入力画面の印刷ボタンを押すと、一人目の顧客の入力画面が印刷される。

下記は、クリップボードにコピーし印刷する部分のコーディングです。
Global Const VK_SNAPSHOT = &H2C
Global Const KEYEVENTF_KEYUP = &H2
keybd_event VK_SNAPSHOT, 1, 0, 0
keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP , 0
RC = DoEvents()
PicBox.Picture = Clipboard.GetData()
lngHeight = PicBox.Height
lngWidth = PicBox.Width
Printer.PaintPicture PicBox, 0, 0, _
lngWidth, lngHeight

　以上　ご教授よろしくおねがいします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： redfox63
回答日時：2009/02/19 18:24

そのコードの内容ですと Win9x系のようです

WinNT系の場合は

keybd_event VK_LMENU, &h56, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_LMENU, &h56, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
keybd_event VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
といった具合にしないといけないようです
つまり Alt + PtrScrn を送るようにするということです

これらを実行する前に ClicpBoard.Clear を実行して
クリップボードを空にしてから実行してみましょう

---- 出展元
[SDK32]keybd_event() を使用してのスナップショットの保存方法
http://support.microsoft.com/kb/411704/ja

参考URL：http://support.microsoft.com/kb/411704/ja