battle programmers alliance

battle programminga forum for elite programmerswith extreme will powerto sharpen theire skills
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Display results as :
Rechercher Advanced Search
Latest topics
» xamarin c# manual image app walkthrough
Sat Aug 12, 2017 2:08 pm by Moti Barski

» win10 shortcut keys
Wed Aug 09, 2017 2:40 am by Moti Barski

» region
Sat Aug 05, 2017 12:25 am by Moti Barski

» visual studio 2017 xamarin c# hello world walkthrough
Sat Jul 29, 2017 11:34 am by Admin

» gear s3 frontier s voice command list
Sat Jul 22, 2017 7:07 pm by Moti Barski

» how to use magnet links
Wed Jun 28, 2017 3:41 am by kurosen

» evolution of code
Mon Jun 12, 2017 12:08 am by kurosen

» chicken bot
Sat Apr 29, 2017 11:09 am by Moti Barski

» convert to binary
Thu Apr 27, 2017 7:48 am by Moti Barski

August 2017
Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of battle programmers alliance on your social bookmarking website
Share | 

 moti construct the megazord with me !

View previous topic View next topic Go down 


Posts : 64
Join date : 2012-04-17

PostSubject: moti construct the megazord with me !   Tue Feb 14, 2017 7:39 pm 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
Back to top Go down
View user profile


Posts : 64
Join date : 2012-04-17

PostSubject: NetLingo   Tue Feb 14, 2017 11:10 pm

getting there 96line
Back to top Go down
View user profile
moti construct the megazord with me !
View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: