دورة صناعة برامج بلفيجول بيسك 2010 الدرس الخامس اضافة اده zoom |سيوفي المعموري

الكود المستخدم

Public Class Form1

    Dim g As Graphics = Me.CreateGraphics

    Dim bmp As Bitmap

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        bmp = New Bitmap(250, 200)

        g = Graphics.FromImage(bmp)

        g.CopyFromScreen(MousePosition.X - 100, MousePosition.Y - 10, 0, 0, New Size(300, 300))

        PictureBox1.Image = bmp

    End Sub

End Class

يوتيوب