السلام عليكم ورحمة الله وبركاتة ايها الاعضاء الكرام

أســف لان الدروس لن تكون ابتدأئـــــيى   

الدرس عبــارة عن صنع برنامج لتصوير الشاشة   

اســف الدروس لن تكون فيديو  

المهم احنا هنصمم الفورم على حسب ما احنا نريد بس المهم نحط  زر ل( التقاط الصورة )

وزر ل (حفظ)

وزر ل (الخروج) اذا بدك طبعا :

وزر للمعلومات  

و PictureBox

وهنحظ Save File Dialog

يلا نبدا بمشيئة الله

هنخلى Picture Box على الفورم  كلو 

ونحط الازرار من فوق

ونسمى الازرار مثل ما قلتلكم فوق   

المهم ندخل ف مرحلة الاكواد لان من رئيى مرحلة التصميم ما بتهمنى اوى  

اول هنحط الكود دا ف الفورم نفسو :

Dim timp As New DateTime

كود التصوير :

Me.Opacity = 0

        Me.ShowInTaskbar = False
        timp = Now()
        Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
        Me.Opacity = 100
        Me.ShowInTaskbar = True

كود الحفظ  

Dim filesavedialog1 As New SaveFileDialog
        SaveFileDialog1.Title = "حفظ الصورة "
        SaveFileDialog1.FileName = "scr" & timp.ToString("HH-mm-dd-MM-yyyy") & ".jpg"
        SaveFileDialog1.Filter = "JPEG File| .jpg"
        Try
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

وز المعلومات :]

(" اكتب معلومات عك هنا :]") msgbox

كود الخروج

End

كلمة شكر تكفيـــنى أنتظر ردودكم وشكرا