+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : طريقه سهله وسريعه لاخذ صوره لسطح المكتب وحفظها علي الهارد ديسك (/showthread.php?tid=6336)
طريقه سهله وسريعه لاخذ صوره لسطح المكتب وحفظها علي الهارد ديسك - RaggiTech - 17-10-12
كاتب الموضوع : silverlight
اخواني الكرامحبيت اشارككم الكود التالي وطبعا الكود من الممكن تطويره وتحويله الي برنامج بامكانيات اكبر
لاخذ صوره لسطح المكتب DeskTop وحفظها في الهارد ديسك يمكن اتباع الاتي: -
افتح مشروع جديد واضف اليه
PitctureBox وليكن اسمها PictureBox1
Button وليكن اسمه BtnShotScreen
Button وليكن اسمه BtnSaveScreenٍٍShot
ثم اضف الكود الاتي الي البرنامج
كود :
Private Sub BtnShotScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShotScreen.Click
Me.WindowState = FormWindowState.Minimized
Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
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.GetThumbnailImage(PictureBox1.Width, PictureBox1.Height, Nothing, Nothing)
End Sub
Private Sub BtnSaveScreenٍٍShot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveScreenShot.Click
Dim SaveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.Filter = "PNG|*.png|GIF|*.gif"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
If Not PictureBox1.Image Is Nothing Then
PictureBox1.Image.Save(SaveFileDialog1.FileName)
End If
End If
End Subاخوكم عمر