سلام دوستان من میخوام برنامه ای بنویسم که بازدن روی یه دکمه از صفحه ی مانیتورم عکس بگیره ممنون میشم کمکم کنید
Printable View
سلام دوستان من میخوام برنامه ای بنویسم که بازدن روی یه دکمه از صفحه ی مانیتورم عکس بگیره ممنون میشم کمکم کنید
سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************
با این کد می تونید از صفحه نمایش عکس بگیرید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
**************کد:'Screen Capture Demo by Tanner Helland (published 2008, updated 2012)
' http://www.tannerhelland.com
'If you like VB game and graphics code, be sure to subscribe to my RSS feed at
' http://www.tannerhelland.com/feed/
'The required API calls are:
'This call gives us the hWnd (window handle) of the screen
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'This call assigns an hDC (handle of device context) from an hWnd
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
'BitBlt lets us draw an image from a hDC to another hDC (in our case, from an hDC of the screen capture
' to the hDC of a VB picture box)
Private Declare Function BitBlt Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal opCode As Long) As Long
'ReleaseDC will be used to release the screen's hDC once the screen capture is complete.
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
'This sample project copies the screen when the form loads; you could also place this code in
' a command button (or any other input)
Private Sub Form_Load()
'First, minimize this window
Me.WindowState = vbMinimized
'Get the hWnd of the screen
Dim scrHwnd As Long
scrHwnd = GetDesktopWindow
'Now, assign an hDC to the hWnd we generated
Dim shDC As Long
shDC = GetDC(scrHwnd)
'Determine the size of the screen
Dim screenWidth As Long, screenHeight As Long
screenWidth = Screen.Width \ Screen.TwipsPerPixelX
screenHeight = Screen.Height \ Screen.TwipsPerPixelY
'Copy the data from the screen hDC to this VB form
BitBlt FormScreenCapture.hDC, 0, 0, screenWidth, screenHeight, shDC, 0, 0, vbSrcCopy
'Release our hold on the screen's hDC
ReleaseDC scrHwnd, shDC
'Set the picture of the form to equal its image
FormScreenCapture.Picture = FormScreenCapture.Image
'Restore the window
Me.WindowState = vbNormal
End Sub
لینک دانلود پروژه..//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*******************
*******************کد:: لینک دانلود پروژه بدون فایل اجرایی
http://www.tannerhelland.com/code/ScreenCapture_noEXE.zip
: لینک دانلود پروژه و فایل اجرایی
http://www.tannerhelland.com/code/ScreenCapture.zip
: منبع
http://www.tannerhelland.com/44/screen-capture-vb6/
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
ممنون از راهنماییتون ولی ممنون میشم که یه راه کار بگید که بتونم عکسی رو که از صفحه نمایشم می گیره تو یه جایی ذخیره بشه
ممنون می شم کمکم کنید:n01:
*********نقل قول:
سلام.../// خواهش میشه.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************
با متد زیر می تونید هر عکسی که داخل PictureBox تون وجود داره رو به صورت Bitmap ذخیره کنید../// (کد زیر تصور PictureBox1 رو تو مسیر C:\Picture.bmp ذخیره می کنه...//).//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*****************
**************کد:VB.SavePicture PictureBox1, "C:\Picture.bmp"
کد زیر تصویر صفحه نمایش رو که داخل FormScreenCapture نمایش داده شده// تو مسیر برنامه و تو یه فایل به اسم scrshot.bmp ذخیره می کنه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
*************کد:VB.SavePicture FormScreenCapture, App.Path & "\scrshot.bmp"
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیز
ممنون ازت که جوابم رو دادی یه سوال دیگه برام پیش اومد
این از صفحه نمایشم عکس می گیره ولی موسم رو نشون نمیده:n13:
اگه دوست داشتید ممنون میشم که راجع بهش توضیح بدید:n16:
سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************
خود ویندوز این قابلیت رو ارائه نمیده که وقتی از صفحه نمایش عکس میگیرید اشاره گر موس رو تو عکس نشون بده..//// (یا من اطلاعی ندارم.//)..//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
برای اینکه بتونید اشاره گر موس رو تو عکس هایی که از صفحه نمایش گرفتید نشون بدید باید مکان اشاره گر و آیکونش رو دریافت کنید و در محل مناسب تو عکس قرار بدید..//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
********************
**************کد:http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=74181&lngWId=1
برنامه بالا همین کار رو انجام میده// فقط محل قرار گرفتن نشانه گر تو عکس خیلی دقیق نیست../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********
فایل MScreen.bas رو به شکل زیر ویرایش کنید تا محل قرار گرفتن نشانه گر موس تو عکس دقیق تر بشه...//// (رو سیستم من که بعد از ویرایش کردن کد به شکل زیر مشکلش حل شد//)../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
******************
****************کد:
DrawIcon PictureBox.hDC, pt.x - iconSize, pt.y - iconSize, hCursor
: کد بالا رو به شکل زیر ویرایش کنید
DrawIcon PictureBox.hDC, pt.x, pt.y, hCursor
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]