请教高手在VB中能不能做一个按钮,模仿键盘中的PrintScreen键的功能的?

Question

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2Call keybd_event(vbKeySnapshot, 1, 0, 0)
Call keybd_event(vbKeySnapshot, 1, KEYEVENTF_KEYUP, 0)

Answer 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 1, 0, 0)'模仿键盘中的PrintScreen键的功能
Call keybd_event(vbKeySnapshot, 1, KEYEVENTF_KEYUP, 0)
End Sub