عکس گرفتن از فرم یا برنامه

[www.pc3enter.tk]

سلام
من یک سوال داشتم ان هم اینکه

چطوری می توان از فرم خود برنامه عکس گرفت



یعنی اینکه تمام محتویات دکمه تکس باکس یا هرچیزی دیگری که داخل فرم است بتوانم از ان عکس بگیرم و در جایی ذخیره کنم

[ayub_coder]

به یاد قدیما :لبخندساده:


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_KEYUP = &H2

Function GetScreenBitmap(Optional ActiveWindow As Boolean) As Picture

Dim pic As StdPicture
Set pic = Clipboard.GetData(vbCFBitmap)
' Alt-Print Screen captures the active window only
If ActiveWindow Then
' Press the Alt key
keybd_event vbKeyMenu, 0, 0, 0
End If
' Press the Print Screen key
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
' Release the Print Screen key
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
If ActiveWindow Then
' Release the Alt key
keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
End If
DoEvents
' return the bitmap now in the clipboard
Set GetScreenBitmap = Clipboard.GetData(vbCFBitmap)
' restore the original contents of the clipboard
Clipboard.SetData pic, vbCFBitmap
End Function

Private Sub Command1_Click()
SavePicture GetScreenBitmap(True), "c:\a.bmp"
End Sub



اگه به جای اون True مقدار False وارد کنید از کل صفحه عکس میگیره.
موفق باشید