تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود التقاط صورة لللشاشة بالكامل
#1
الكود دا لاتقاط صور بس للاسف بيلتقط صورة للفورم فقط و يعمل save as انا عاوز كود لاتقاط الشاشة بالكامل مع حفظ تلقائي للصورة في ملف انا احدده في الكود نفسه 

 Dim img As New Bitmap(Width, Height)
        DrawToBitmap(img, New Rectangle(New Point(0, 0), Size))
        Dim opn As New SaveFileDialog
        opn.Filter = "*.png|*.png"
        If opn.ShowDialog = Windows.Forms.DialogResult.OK Then
            img.Save(opn.FileName, Imaging.ImageFormat.Png)
        End If
الرد }}
تم الشكر بواسطة: asemshahen5 , خالد20
#2
راجع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=343
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: asemshahen5 , Hatem Zahran , خالد20
#3
شكرا لحضرتك  Heart
الرد }}
تم الشكر بواسطة: asemshahen5 , ابو انس , ابو انس
#4
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة


الملفات المرفقة
.rar   التقاط صورة.rar (الحجم : 303.49 ك ب / التحميلات : 29)
الرد }}
تم الشكر بواسطة: ابو انس , Hatem Zahran
#5
(11-07-21, 08:06 PM)asmarsou كتب :
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
شكرا جدا ممكن اتواصل معك علي الفيسبوك

(11-07-21, 08:06 PM)asmarsou كتب :
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
 
طب ليه لما باخد سكرين شوت جديد بيكون الاسكرين شوت القديم بيتمسح و الجديد بينضاف مكانه مفيش حل يخلي الصور محفوظه مش بتتمسح
الرد }}
تم الشكر بواسطة: asmarsou , asmarsou , asemshahen5 , خالد20
#6
(11-07-21, 08:09 PM)Hatem Zahran كتب :
(11-07-21, 08:06 PM)asmarsou كتب :
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
شكرا جدا ممكن اتواصل معك علي الفيسبوك

(11-07-21, 08:06 PM)asmarsou كتب :
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
 
طب ليه لما باخد سكرين شوت جديد بيكون الاسكرين شوت القديم بيتمسح و الجديد بينضاف مكانه مفيش حل يخلي الصور محفوظه مش بتتمسح
كل ما عليك هو تغيير اسم الصورة عند الحفظ حتى لا تحذف القديمة
بتوفيق لك
الرد }}
تم الشكر بواسطة: asmarsou , asemshahen5 , asemshahen5
#7
(11-07-21, 09:20 PM)trakktour كتب : كل ما عليك هو تغيير اسم الصورة عند الحفظ حتى لا تحذف القديمة
بتوفيق لك


تمام الف شكر لحضرتك
الرد }}
#8
(12-07-21, 12:30 AM)Hatem Zahran كتب :
(11-07-21, 09:20 PM)trakktour كتب : كل ما عليك هو تغيير اسم الصورة عند الحفظ حتى لا تحذف القديمة
بتوفيق لك


تمام الف شكر لحضرتك

تفضل يا عزيزي
غير الكود بذات المثال المرفق  امسح كل ما به و استبدله بالتالي

PHP كود :
Public Class Form1

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Me
.Opacity 0
        My
.Computer.Audio.Play(My.Resources.camera_shutterclickAudioPlayMode.Background)
 
       Dim bounds As Rectangle
        Dim screenshot 
As System.Drawing.Image
        Dim graph 
As Graphics
        bounds 
Screen.PrimaryScreen.Bounds
        screenshot 
= New System.Drawing.Bitmap(bounds.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb)
 
       graph Graphics.FromImage(screenshot)
 
       graph.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy)
 
       Me.Opacity 100
        Dim pb 
As New PictureBox
        pb
.Image screenshot    
        
'pb.Image.Save("d:\screenshoot.Jpg")
        Static Count As Integer
        Count += 1
        pb.Image.Save(("d:\screenshoot" & Count.ToString & ".jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub
End Class 
بالتوفيق
الرد }}
تم الشكر بواسطة: ابو انس , Hatem Zahran , asemshahen5 , asemshahen5
#9
تمام المشكلة اتحلت بس ممكن اتواصل معاك علي الفيسبوك او الواتساب
الرد }}
تم الشكر بواسطة: asemshahen5 , asmarsou
#10
(12-07-21, 12:45 PM)Hatem Zahran كتب : تمام المشكلة اتحلت بس ممكن اتواصل معاك علي الفيسبوك او الواتساب

الحمد لله على كل حال
 موفق ان شاء الله
الرد }}
تم الشكر بواسطة:



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


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