نقل قول: عکس گرفتن از فرم جاری
نقل قول: عکس گرفتن از فرم جاری
نقل قول:
نوشته شده توسط
vbworm
خیلی خوب بود مرسی منم استفاده کردم :تشویق:
نقل قول: عکس گرفتن از فرم جاری
اینم یه روش دیگه .
این فانکشن رو توی کلاستون تعریف کنید :
Function GetScreen(Optional ByVal Screen As Boolean = False) As Image
If Screen = True Then
SendKeys.SendWait("{PRTSC}")
Else
SendKeys.SendWait("%{PRTSC}")
End If
Dim objData As IDataObject = Clipboard.GetDataObject
Return objData.GetData(DataFormats.Bitmap)
End Function
خوب حالا این جوری ازش استفاده کنید :
Dim XImage As Image = GetScreen(True)
متغییر XImage حالا دارای یک تصویر از فرم شما هست.