Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_SNAPSHOT As Byte = &H2C Private Sub Command1_Click() Clipboard.Clear Call keybd_event(VK_SNAPSHOT, 2, 0, 0) DoE
Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_SNAPSHOT As Byte = &H2C Private Sub Command1_Click() Clipboard.Clear Call keybd_event(VK_SNAPSHOT, 2, 0, 0) DoE
不错,可以用
保存的还是bmp文件.