[ghani2003]

سلام اخوني

اريد كود تصوير البرنامج بدون باقي الشاشة و حفظه في اي مكان اريد

[elgokr]

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

تذكر اخى الحبيب ان السلام دائماً لله

فلا تبخل فى قول السلام كاملتاً 

بخصوص ما تريده يمكنك مراجعة الرابط التالى 

https://docs.microsoft.com/en-us/dotnet/...-component

وبخصوص ان يكون الامر كا صورة

فقط قم بوضع هذا الكود فى الفورم

كود :

   Public Sub ScreenCopy(ByVal file As String)
       Dim bounds = Me.Bounds
       Using bitmap As New Bitmap(bounds.Width, bounds.Height)
           Using g = Graphics.FromImage(bitmap)
               g.CopyFromScreen(New Point(bounds.Left, bounds.Top), Point.Empty, bounds.Size)
           End Using
           bitmap.Save(file, System.Drawing.Imaging.ImageFormat.Jpeg)
           Process.Start(file)
       End Using
   End Sub

ثم تعال وقم بانشاء الكود بداخلا زر المطلوب التقاط الصورة

كود :

       Dim Path As String = Application.StartupPath & "\FolderScreen\"
       Dim Name As String = Now.ToString("yyyyMMddHHmmss") & ".jpg"
       If (Not System.IO.Directory.Exists(Path)) Then
           System.IO.Directory.CreateDirectory(Path)
       End If
       ScreenCopy(Path & Name)

تحياتى لك

وتمنياتى لك التوفيق

[ghani2003]

مشكور اخي

مي انا حاب نحطها مثال في "C:\Users\SONY\Downloads"

يعني يحفظ هو وحدوا

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

كل ما عليك تعديل هذا السطر من الكود

كود :

       Dim Path As String = Application.StartupPath & "\FolderScreen\"

ليصبح بهذا الشكل

كود :

       Dim Path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads\")

بكده تحول من مجلد بجانب البرنامج

الى مجلد التحميل الموجود بالسيستم حسب اسم المستخدم

تحياتى لك

وتمنياتى لك التوفيق