الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أريد تحويل فورم إلى صورة

بدأه شبه جسم في 15 سبتمبر 2009 · 6 رد · 1,029 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

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

أخواني الكرام

صار لي زمان ما دشيت هالمنتدى المتميز ، وصار لي فترة طويلة ما فتحت الفيجوال بيسك

لكن اليوم احتجت لكم في مسألة ، أرجو ما تردوني ، وتحلوا لي مشكلتي بارك الله فيكم

مشكلتي إن عندي برنامج صغير ، مكون من فورم

وأريد بضغطة زر إني أحول شكل الفورم إلى صورة بأي امتداد

وتطلع لي نافذة أختار منها مكان الحفظ

وإذا الأمر صعب ، فممكن أعوض عنه بأن أضغط على زر في الفورم ، فتتحول الشاشة كلها إلى صورة

أتمنى أكون واضح بمطلبي ، وتساعدوني بارك الله فيكم

تم تعديل هذه المشاركة بواسطة شبه جسم في 15 سبتمبر 2009 في 05:11

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#2

الكود التالي يقوم برسم الفورم على صورة و يحفظها في ملف. يمكنك التلاعب بأعضاء الفئة ImageFormat لتحديد صيغة نوع ملف الصورة كـ bmp, jpg,png, etc.

		' إنشاء كائن الممثل لصورة النموذج
		Dim bmp As New Bitmap(Width, Height)
		' تحديد مربع النموذج
		Dim rc As New Rectangle(0, 0, Width, Height)
		' رسم النموذج على الصورة
		Me.DrawToBitmap(bmp, rc)
		' حفظ الصورة في ملف
		bmp.Save("file.jpg", Imaging.ImageFormat.Jpeg)

تحياتي...

#3

ممتاز أخوي محمد

أنت كذا :thumb_up:

الله يبارك لك ويغفر لك ذنوبك بفضل هالشهر الفضيل

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#4

طريقة أخرئ في سطرين

'الضغط علئ الزر PrintScreen برمجيا
SendKeys.SendWait("%({PRTSC})")

'حفظ الصورة
My.Computer.Clipboard.GetImage().Save("D:\test.jpg")

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#5

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

سبقتمونى بالحلول لكن لدى حل ثالث :P :P

هذا حل باستخدام الـAPI

  1.  
  2. Imports System.Runtime.InteropServices
  3.  
  4. Public Class Form1
  5.  
  6. <DllImport("user32.dll")> _
  7. Private Shared Function PrintWindow(ByVal hWnd As IntPtr, ByVal hdcBlt As IntPtr, ByVal nFl
    ags As Integer) As Integer
  8. End Function
  9.  
  10. Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand
    les btnPrint.Click
  11. Dim bmp As New Bitmap(Me.Width, Me.Height)
  12. Dim gr As Graphics = Graphics.FromImage(bmp)
  13. Dim ret = PrintWindow(Me.Handle, gr.GetHdc, 0)
  14. gr.ReleaseHdc()
  15. bmp.Save("C:MyWindow.jpg")
  16. End Sub
  17. End Class
  18.  

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#6

ما شاء الله عليكم

مبدعين الصراحة

أسعدتني طرقكم الجميلة ، وإن شاء الله نتعاون جميعا على البر والتقوى

بارك الله فيكم

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#7

بارك الله فيكم

مواضيع مشابهة