ab.com コミュニティ

動かしてみてないので何とも言えないけど、
もしかしたら、キーを放した瞬間にはまだキャプチャが済んでないのかもしれない。
Sleepを挟んでみたらどうだろう。

#今度からここではなくプログラミング質問板の方に投稿しましょう。

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)

　　　　　　　　　　　　　　　　　　　：
　　　　　　　　
                 

コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが　2回押さないと正常に動きません
何がおかしいのかさっぱりわからない状態です
どなたか教えてください

[code]
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)

　　　　　　　　　　　　　　　　　　　：
　　　　　　　　
[/code]