+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=38918)
طلب كود التقاط صورة لللشاشة بالكامل - Hatem Zahran - 11-07-21
الكود دا لاتقاط صور بس للاسف بيلتقط صورة للفورم فقط و يعمل 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
RE: طلب كود التقاط صورة لللشاشة بالكامل - ابو انس - 11-07-21
راجع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=343
RE: طلب كود التقاط صورة لللشاشة بالكامل - Hatem Zahran - 11-07-21
شكرا لحضرتك
RE: طلب كود التقاط صورة لللشاشة بالكامل - asmarsou - 11-07-21
(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك
اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
RE: طلب كود التقاط صورة لللشاشة بالكامل - Hatem Zahran - 11-07-21
(11-07-21, 08:06 PM)asmarsou كتب :شكرا جدا ممكن اتواصل معك علي الفيسبوك(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك
اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
(11-07-21, 08:06 PM)asmarsou كتب :(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك
اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
طب ليه لما باخد سكرين شوت جديد بيكون الاسكرين شوت القديم بيتمسح و الجديد بينضاف مكانه مفيش حل يخلي الصور محفوظه مش بتتمسح
RE: طلب كود التقاط صورة لللشاشة بالكامل - trakktour - 11-07-21
(11-07-21, 08:09 PM)Hatem Zahran كتب :كل ما عليك هو تغيير اسم الصورة عند الحفظ حتى لا تحذف القديمة(11-07-21, 08:06 PM)asmarsou كتب :شكرا جدا ممكن اتواصل معك علي الفيسبوك(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك
اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
(11-07-21, 08:06 PM)asmarsou كتب :(11-07-21, 07:45 PM)Hatem Zahran كتب : شكرا لحضرتك
اليك بمثال بسيط قد اضفت اليه مؤثر صوتي عند التقاط الصورة
طب ليه لما باخد سكرين شوت جديد بيكون الاسكرين شوت القديم بيتمسح و الجديد بينضاف مكانه مفيش حل يخلي الصور محفوظه مش بتتمسح
بتوفيق لك
RE: طلب كود التقاط صورة لللشاشة بالكامل - Hatem Zahran - 12-07-21
(11-07-21, 09:20 PM)trakktour كتب : كل ما عليك هو تغيير اسم الصورة عند الحفظ حتى لا تحذف القديمة
بتوفيق لك
تمام الف شكر لحضرتك
RE: طلب كود التقاط صورة لللشاشة بالكامل - asmarsou - 12-07-21
(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.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Opacity = 0
My.Computer.Audio.Play(My.Resources.camera_shutterclick, AudioPlayMode.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.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.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
RE: طلب كود التقاط صورة لللشاشة بالكامل - Hatem Zahran - 12-07-21
تمام المشكلة اتحلت بس ممكن اتواصل معاك علي الفيسبوك او الواتساب
RE: طلب كود التقاط صورة لللشاشة بالكامل - asmarsou - 13-07-21
(12-07-21, 12:45 PM)Hatem Zahran كتب : تمام المشكلة اتحلت بس ممكن اتواصل معاك علي الفيسبوك او الواتساب
الحمد لله على كل حال
موفق ان شاء الله