by HSABP » 2010年2月28日(日) 23:09
keybd_event()を呼んだ後にメッセージを処理させます。
コード: 全て選択
'ボタンが押された
Sub MainWnd_CommandButton1_Click()
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY, 0)
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)
DoEvents()
If IsClipboardFormatAvailable(CF_BITMAP) <> 0 then
MessageBox(hMainWnd,"ok",0,0)
End If
End Sub
Function DoEvents()
Dim m As MSG
While PeekMessage(m,NULL,0,0,PM_REMOVE)
TranslateMessage(m)
DispatchMessage(m)
Wend
DoEvents= TRUE
End Function
keybd_event()を呼んだ後にメッセージを処理させます。
[code]
'ボタンが押された
Sub MainWnd_CommandButton1_Click()
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY, 0)
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)
DoEvents()
If IsClipboardFormatAvailable(CF_BITMAP) <> 0 then
MessageBox(hMainWnd,"ok",0,0)
End If
End Sub
Function DoEvents()
Dim m As MSG
While PeekMessage(m,NULL,0,0,PM_REMOVE)
TranslateMessage(m)
DispatchMessage(m)
Wend
DoEvents= TRUE
End Function
[/code]