battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programmers allianceLog in

the LivinGrimoire Artificial General Intelligence software design pattern forum

descriptionmoti construct the megazord with me ! Emptymoti construct the megazord with me !

more_horiz see through picbox image capture megazord


Public Class Form1

    Dim bmp1 As Bitmap
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim screenBounds = Screen.PrimaryScreen.Bounds
        Dim screenShot As New Bitmap(screenBounds.Width, screenBounds.Height)
        Using g = Graphics.FromImage(screenShot)
            g.CopyFromScreen(screenBounds.Location, Point.Empty, screenBounds.Size)
        End Using

        bmp1 = screenShot
        Dim cloneRect As New Rectangle(Me.Location.X + PictureBox1.Location.X + 4, Me.Location.Y + PictureBox1.Location.Y + 30, PictureBox1.Width - 5, PictureBox1.Height - 35)

        PictureBox2.Image = bmp1.Clone(cloneRect, bmp1.PixelFormat)
    End Sub
End Class

descriptionmoti construct the megazord with me ! EmptyNetLingo


getting there 96line
privacy_tip Permissions in this forum:
You cannot reply to topics in this forum
power_settings_newLogin to reply