17-10-12, 08:44 PM
كاتب الموضوع : 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
اخوكم عمر