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)
'ボタンが押された
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