ab.com コミュニティ

コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが　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)

　　　　　　　　　　　　　　　　　　　：

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

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

ab.com コミュニティ

keybord_eventを使っての画面キャプチャがうまくできません

keybord_eventを使っての画面キャプチャがうまくできません