تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقه سهله وسريعه لاخذ صوره لسطح المكتب وحفظها علي الهارد ديسك
#1
كاتب الموضوع : 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
متهيالي الكود واضح وسهل مش محتاج شرح

اخوكم عمر
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم