أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil التحقق من بيانات في عمودين قبل الاضافة اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





حفظ صورة form او PictureBox

كيفية التقاط او اخذ صورة للفورم او الى اداة الـPictureBox من على الفورم نفسهصورة للفورموهذه صورة للـPictureBox الكود ال ..



19-05-2019 09:47 صباحا
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1239
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9082
الاعجاب : 10
موقعي : زيارة موقعي
 offline 
1-Basmala-www.ward2u.com
كيفية التقاط او اخذ صورة للفورم او الى اداة الـPictureBox من على الفورم نفسه
صورة للفورم
GYswG_5456

وهذه صورة للـPictureBox
FvIiU_654684
الكود المستخدم لحفظ صورة للفورم كامل

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|EMF (*.emf)|*.emf|PNG (*.png)|*.png|SVG (*.svg)|*.svg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
If (saveFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim a As String = saveFileDialog1.FileName
Dim b As New Bitmap(Me.Width, Me.Height)
Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
b.Save(a)
End If
End Sub


الكود المستخدم لحفظ الصورة فقط
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|EMF (*.emf)|*.emf|PNG (*.png)|*.png|SVG (*.svg)|*.svg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
If (saveFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim a As String = saveFileDialog1.FileName
Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
PictureBox1.DrawToBitmap(b, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))
b.Save(a)
End If
End Sub

3dlat.net_06_17_3221_da0fc7b5e8957
تحياتي لكم 
ياسر العربي



 
 




توقيع :Yasser Elaraby
663013020


19-05-2019 06:32 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8550
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25152
الاعجاب : 46
 offline 
look/images/icons/i1.gif حفظ صورة form او PictureBox
بارك الله فيك أخي وحبيبي ياسر العربي وجزيت خيراً

لا تنسانا بالملف المرفق لتمام الاستفادة







الكلمات الدلالية
PictureBox ، form ، صورة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:23 صباحا

أعلن هنا
أعلن هنا
أعلن هنا