منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تصوير البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تصوير البرنامج (/showthread.php?tid=28787)

تصوير البرنامج - ghani2003 - 27-02-19

سلام اخوني


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


RE: تصوير البرنامج - elgokr - 27-02-19

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

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

بخصوص ما تريده يمكنك مراجعة الرابط التالى 
https://docs.microsoft.com/en-us/dotnet/visual-basic/developing-apps/printing/how-to-print-a-form-by-using-the-printform-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)


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


RE: تصوير البرنامج - ghani2003 - 27-02-19

مشكور اخي

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

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


RE: تصوير البرنامج - elgokr - 27-02-19

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

كل ما عليك تعديل هذا السطر من الكود
كود :
       Dim Path As String = Application.StartupPath & "\FolderScreen\"

ليصبح بهذا الشكل
كود :
       Dim Path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads\")

بكده تحول من مجلد بجانب البرنامج
الى مجلد التحميل الموجود بالسيستم حسب اسم المستخدم

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