تقييم الموضوع :
  • 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
متهيالي الكود واضح وسهل مش محتاج شرح

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل Copy-Paste من صوره على الجهاز الى البرنامج RaggiTech 0 472 17-10-12, 08:56 PM
آخر رد: RaggiTech
  طريقه التشفير بـ md5 RaggiTech 0 554 17-10-12, 08:55 PM
آخر رد: RaggiTech
  اظهار اسم النظام + اصداره على سطح المكتب RaggiTech 0 352 17-10-12, 08:42 PM
آخر رد: RaggiTech
  تحديث سطح المكتب RaggiTech 1 463 17-10-12, 06:52 PM
آخر رد: RaggiTech
  لعمل اختصار على سطح المكتب RaggiTech 0 333 17-10-12, 06:10 PM
آخر رد: RaggiTech
  لانشاء مجلد على سطح المكتب RaggiTech 0 312 17-10-12, 06:02 PM
آخر رد: RaggiTech
  لمعرفه المساحه الخاليه بالبايت byte علي قرص معين (هارد ديسك معين) بالاعتماد علي ال A RaggiTech 0 277 17-10-12, 05:41 PM
آخر رد: RaggiTech
  طريقه حساب عمر الانسان RaggiTech 0 559 17-10-12, 05:09 PM
آخر رد: RaggiTech

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


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