27-02-19, 03:20 PM
27-02-19, 03:46 PM
وعليكم السلام ورحمة الله وبركاته
تذكر اخى الحبيب ان السلام دائماً لله
فلا تبخل فى قول السلام كاملتاً
بخصوص ما تريده يمكنك مراجعة الرابط التالى
وبخصوص ان يكون الامر كا صورة
فقط قم بوضع هذا الكود فى الفورم
كود :
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)تحياتى لك
وتمنياتى لك التوفيق
27-02-19, 04:26 PM
مشكور اخي
مي انا حاب نحطها مثال في "C:\Users\SONY\Downloads"
يعني يحفظ هو وحدوا
27-02-19, 06:44 PM
الشكر لله والحمد لله
والحمد لله على كل حال
كل ما عليك تعديل هذا السطر من الكود
كود :
Dim Path As String = Application.StartupPath & "\FolderScreen\"ليصبح بهذا الشكل
كود :
Dim Path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads\")بكده تحول من مجلد بجانب البرنامج
الى مجلد التحميل الموجود بالسيستم حسب اسم المستخدم
تحياتى لك
وتمنياتى لك التوفيق