你试试下面代码,我没测试: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() Call keybd_event(vbKeySnapshot, theForm, 0, 0) Picture1.Picture = Clipboard.GetData(vbCFBitmap) End Sub Private Sub Command2_Click() CommonDialog1.ShowPrinter End Sub
以下是引用西山居士在2007-6-11 20:03:32的发言: 你试试下面代码,我没测试: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() Call keybd_event(vbKeySnapshot, theForm, 0, 0) Picture1.Picture = Clipboard.GetData(vbCFBitmap) End Sub Private Sub Command2_Click() CommonDialog1.ShowPrinter End Sub