تقييم الموضوع :
  • 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
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: asemshahen5 , Hatem Zahran , خالد20
#3
شكرا لحضرتك  Heart
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو انس , ابو انس
#4
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك  Heart

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


الملفات المرفقة
.rar   التقاط صورة.rar (الحجم : 303.49 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة: ابو انس , 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 كتب : تمام المشكلة اتحلت بس ممكن اتواصل معاك علي الفيسبوك او الواتساب

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
  [VB.NET] جلب جدول مباريات بالكامل ميدو الفنان 2 1,368 21-12-22, 04:03 AM
آخر رد: malekmohamed155
  وضع صورة كخلفية للبروقرس بار لكن!! سعود 1 572 27-08-22, 03:46 PM
آخر رد: DR.YASER
  البحث عن صورة kebboud 5 996 23-08-22, 02:20 AM
آخر رد: Taha Okla
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 692 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
  استعراض صورة من listview الى picturbox Lathe1 1 583 12-07-22, 03:26 PM
آخر رد: Lathe1
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 1,522 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [VB.NET] عرض صورة مخزنة فيdatabase محمد بوقزاحة 0 752 26-03-22, 06:48 PM
آخر رد: محمد بوقزاحة
  [VB.NET] ايه افضل طريقة لاستخراج ارقام من صورة ؟ الماجيك مسعد 2 1,149 17-03-22, 03:52 PM
آخر رد: الماجيك مسعد

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


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