コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが 2回押さないと正常に動きません
何がおかしいのかさっぱりわからない状態です
どなたか教えてください
コード:
Sub MainWnd_CommandButton12_Click()
Dim Ret As Long
:
keybd_event(VK_SNAPSHOT,0,0,0)
keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0)
Ret=IsClipboardFormatAvailable(CF_BITMAP)
if Ret = 0 then
return
endif
'クリップボードのデータを格納
Ret=OpenClipboard(NULL)
hBit=GetClipBordData(CF_BITMAP)
投稿先が違っていたようなので再送
konisiさん すばやいお返事ありがとうございます
Sleep はすでに試したのですが変化ありませんでした
MsgBoxでIsClipboardFormatAvailableのRetを表示すると
2回押しでもBitmapを検出できなくなるので
もう何処をどう調べればいいか解らなくなってしまいました
どうか 解決策をご指南ください