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

حفظ صوره باسم جديد في نفس ملف امتداد البرن

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

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

كيف يمكنني ان احفظ صوره باسم جديد (من textbox) في نفس ملف امتداد البرنامج علما ان الصوره هذه معروضه على PictureBox

وكيف يمكنني ان اقوم باسترجعها وعرضها باستخدام اسمها

وكيف يمكنني حذفها من ذلك الامتداد والغاء الصوره التى في PictureBox

WindowsApplication2.rar

تم تعديل هذه المشاركة بواسطة صاحبة السمو في 7 أبريل 2008 في 10:08

1145392391.gif
#2

يوجد اكثر من طريقة هذه واحده منها

WindowsApplication2_1.zip

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#3

شكرا اخي الكريم

ولكن المرفق لا يعمل ولا يقوم بحفظ الصوره اطلاقا

كما اعتقد انو الفكره المطلوبه لم تصل لك بالشكل المطلوب

المطلوب هو ان يتم حفظ الصوره التى تكون في PictureBox

حفظها بالاسم الموجود في التكس بوكس في ملف امتداد البرنامج

وايضا كيف يتم استرجاع الصوره

وكيف يتم حذفها

شكر مره اخرى

1145392391.gif
#4

لحفظ الصورة الموجودة في بكتشر بوكس في ملف

Dim i As Image
i=PictureBox1.Image
i.Save(Application.StartupPath & "\" & textbox1.text)

لحذف الصورة من البكتشر بوكس

PictureBox1.Image = Nothing

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#5

شكرا اخي الكريم

ولكن عند التجربه على مثال

فان الكود المرفق للاسف لا يعمل

مرسل مرفق لتتاكد من صحه ذلك

شكرا لك

WindowsApplication2.rar

1145392391.gif
#6
j.Save(Application.StartupPath & "\" & TextBox1.Text & ".jpg")

كان ناقصك تحددي امتداد الصورة

وياريت تضيفي هذا الكود تحت الكود السابق

PictureBox2.Image = j

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#7

شكرا اخي الكريم على تعبك معي

ولكن للامانه الحل لم ينجح

وفي كل مره كان يعطيني غلط

الى ان توصلت لكود مشابه

وهو التالي

   Dim imagepath As String = Application.StartupPath & "\" & TextBox1.Text

		picturebox1.Image.Save(imagepath, Imaging.ImageFormat.Jpeg)

شكرا لك اخي الكريم مره اخي

1145392391.gif

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