Screenshot problem

12/20/2016 14:02 BeginnerDO#1

Hi,

How the **** do I adjust screenshot? Or should I ask why is this not working?

I am trying to use a simple screenshot function:

Code:

Private Function take_screenshot(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer)
        Dim Img As New Bitmap(Width, Height)
        Dim g As Graphics = Graphics.FromImage(Img)
        g.CopyFromScreen(X, Y, 0, 0, Img.Size)
        g.Dispose()

        Return Img
    End Function

The goal is to make a small screenshot (< 50 x 50 pixels) of spesific area. To test this I have set global hotkey to take a screenshot and then show it in picturebox:

Code:

PictureBox1.Image = take_screenshot(Cursor.Position.X, Cursor.Position.Y, 100, 100)

However this does not take screenshot in the area I want to :O

With more testing I tried to capture full screen and the result can be found in [Only registered and activated users can see links. Click Here To Register...] (also attachements but there much smaller)
How to fix this? :)

12/20/2016 14:51 mrapc#2

You can try to take the fullscreen Screenshot and than copy the area you want:
[Only registered and activated users can see links. Click Here To Register...]

12/20/2016 19:36 BeginnerDO#3

Quote:

Originally Posted by mrapc

You can try to take the fullscreen Screenshot and than copy the area you want:
[Only registered and activated users can see links. Click Here To Register...]

This is not a solution.
Firstly I cannot take a full screen screenshot because it now somehow zooms in and leaves bottom and right parts of the screen out. (see the image in 1st post).

Also full screen screenshot is too slow for what I need. That is the reason the goal is to make small screenshots.