capture a control and send the image to a clipboard or image file

[jason213123]

hi,
there is any way to capture a control and send the image of that control to a clipboard or image file?
thanks a lot for your help

[dglienna]

You can capture a screen, or capture a form. Search for the one that you want. There are many examples out there.

[Hack]

Here is one way

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 VK_SNAPSHOT = &H2C 

Private Function SaveScreen(ByVal theFile As String) As Boolean 
On Error Resume Next 

'To get the Entire Screen 
Call keybd_event(vbKeySnapshot, 1, 0, 0) 

'To get the Active Window 
'Call keybd_event(vbKeySnapshot, 0, 0, 0) 

SavePicture Clipboard.GetData(vbCFBitmap), theFile 

SaveScreen = True 
Exit Function 
End Function 

Private Sub Command1_Click()
Call SaveScreen("C:\Windows\Desktop\shot1.bmp") 
End Sub

Is that what you are looking for?

[kennyj]

Hi.
Have you tried something like this

Clipboard.SetData Command1.Picture