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

ماهية عرض الصورة المناسبة مع الكلام المناسب ؟؟؟

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

::

::

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

::

::

اخواني اعضاء منتدى البرمجة

والله من كثر ما اسأل لكن انتوا كريمين

وفيكم الخير والبركة

بادية في عمل مشروع ما

لكن اثناء كتابتي لكود معين لم يتم تنفيذة

ويظهر لي الـ

Break

انظرو لهذ الصورة التالية

http://www.9q9q.org/index.php?image=2lrpoKmLjGHg

خطوات العمل

عند الضغط من ال ComboBox1 احدى الخيارات ولنفرض الخيار الأول

يظهر في الـ RichTextBox مستند نص تم استدعاؤة وهو وضوع في نفس مجلد الـ Bin

وأيضاً في PictureBox1

تم استخدام هذا الكود ولكن لم يعمل بل يظهر الـ


RichTextBox1.LoadFile(Application.StartupPath + "/Texts/2.txt", RichTextBoxStreamType.PlainText)
PictureBox1.Image = Image.FromFile(Application.StartupPath + "/images/g.jpeg")
Else
If ComboBox1.SelectedIndex = 1 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/3.txt", RichTextBoxStreamType.PlainText)
Else
If ComboBox1.SelectedIndex = 2 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/4.txt", RichTextBoxStreamType.PlainText)
Else
If ComboBox1.SelectedIndex = 3 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/5.txt", RichTextBoxStreamType.PlainText)
Else
If ComboBox1.SelectedIndex = 4 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/6.txt", RichTextBoxStreamType.PlainText)
Else
If ComboBox1.SelectedIndex = 5 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/7.txt", RichTextBoxStreamType.PlainText)
Else
If ComboBox1.SelectedIndex = 6 Then
RichTextBox1.LoadFile(Application.StartupPath + "/Texts/8.txt", RichTextBoxStreamType.PlainText)
End If
End If
End If
End If
End If
End If
End If
End Sub
If ComboBox1.SelectedIndex = 0 Then

هنا طبقت على اختيار واحد فقط وهو الأول ولكن لا يعمل

بل يظهر لي Break

في هذا السطر

PictureBox1.Image = Image.FromFile(Application.StartupPath + "/images/g.jpeg")

#2

اولا - ماهي رسالة الخطأ التي تظهر لك

يمكن تنفيذ كودك بطريقة أسهل وأكثر قابلية للقراة باستخدام حلقة Select .... Case

		Select Case ComboBox1.SelectedIndex
			Case 0
				RichTextBox1.LoadFile(Application.StartupPath & "/Texts/2.txt", RichTextBoxStreamType.PlainText)
				PictureBox1.Image = Image.FromFile(Application.StartupPath & "/images/nokia_1100.JPG")

			Case 1
				RichTextBox1.LoadFile(Application.StartupPath & "/Texts/3.txt", RichTextBoxStreamType.PlainText)

			Case 2
				RichTextBox1.LoadFile(Application.StartupPath & "/Texts/4.txt", RichTextBoxStreamType.PlainText)

		End Select

والكود يعمل بشكل صحيح إذا كانت الملفات موجودة في المكان المناسب

تم تعديل هذه المشاركة بواسطة samerselo في 12 نوفمبر 2006 في 00:59

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

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

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

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

#3

::

::

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

::

::

مرحبا أخي samerselo

تسلم وربي يعطيك العافية

راح أجرب وأشوف

الوردية

في،ـ حفظ الرحمنـ,,

#4

:

::

مرحبا أخواني

توصلت لحل المشكلة

وهي انه امتداد الصورة jpg

وليس

jpeg

ألف شكر لكل من ساعد

الوردية

احترامي لكم...

هذا الموضوع مغلق.

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…