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

تغير الصورة باستخدام الكود

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

يا اخوان عندي سؤال اتمنى انكم تجاوبوني علية و هو

لقد وضعت على الفور PictureBox1 و وضعت بداخلها صورة عن طريق الخصائص IMAGE و وضعت ايضا على الشاشة TextBox1 لوضع عنوان صورة على جهازي

و المطلوب هو عند تحديد عنوان الصورة على سبيل المثالC:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg

ووضعة في TextBox1 و الضغط على رز تغير الصورة (يتم تغير الصورة حسب العنوان المكتوب)

فماهو الكود اللذي يجب ان يكتب بهذا الزر

و لكم مني جزيل الشكر

اســرار البــرمجــــة
#2
		Dim Ofd As New OpenFileDialog
		Ofd.Filter = "PictureFiles|*.jpg;*.bmp"
		If Ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
			Me.PictureBox1.Image = Image.FromFile(Ofd.FileName)
		End If

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

شكراً لكم و بارك الله فيكم

#4

السلام عليكم أخوانى

Me.PictureBox1.Image = Image.FromFile(me.textbox1.text) ....zzzzz

والكود ده كامل بإذن الله علشان تضمن إن التكسيت NOT NULL

If Not IsNothing(Me.textbox1.Text) Then

Me.PictureBox1.Image = Image.FromFile(Me.textbox1.Text)

Else

MessageBox.Show("The URL Or Filename is not set", _

"Load Error", _

MessageBoxButtons.OK, _

MessageBoxIcon.Error _

)

End If

وممكن تشوف الأمتداد أو تزود على الكود ولو أحتجت مساعدة إحنا فى الخدمة

جرب وإن شاء الله خير

أخوك مصطفى

تم تعديل هذه المشاركة بواسطة mostafa_ali_2000 في 3 يونيو 2008 في 04:19

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