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

أرجو المساعدة في حل مشكلة كود البحث بلغة الفيجوال بيسك دوت نت

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

السلام عليكم

أعضاء المنتدى المحترمين

من يستطيع الاجابة على هذا السؤال الذي حيرني

أنا عندي كتاب فيجوال ستديو 2008 خطوة بخطوة

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

مع العلم أن الكتاب يحتوي على الأكواد بلغة VB.net و C#

وعندما قمت بتطبيق الكود بلغة السي شارب على الفيجوال ستديو 2008 نجح وأعطى الناتج بشكل صحيح

أما عندما قمت بتطبيق كود VB.net فإنه لا يطبق أبداً أو يطبق بطريقة خاطئة أو أنه يعطي خطأ ويتوقف البرنامج

أرجو منكم المساعدة والكود هو كالتالي :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim index As Integer = 0

While (index = RichTextBox1.Text.IndexOf(TextBox1.Text, index)) <> -1

RichTextBox1.Select(index, TextBox1.Text.Length)

RichTextBox1.SelectionColor = System.Drawing.Color.Red

index += TextBox1.Text.Length

End While

'MessageBox.Show("انتهى البحث")

End Sub

End Class

#2

أختى عذرا هذا كود بحث عن كلمة او حرف معين داخل التكست ؟

#3

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

غيرى الكود إلى هذا الشكل

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim index As Integer = RichTextBox1.Text.IndexOf(TextBox1.Text, index)
        While index <> -1
            RichTextBox1.Select(index, TextBox1.Text.Length)
            RichTextBox1.SelectionColor = System.Drawing.Color.Red
            index = RichTextBox1.Text.IndexOf(TextBox1.Text, index + 1)
        End While
        'MessageBox.Show("انتهى البحث")
    End Sub

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

feed.1.gif

#4

السلام عليكم

أخي omar ali أشكرك على اهتمامك ..نعم هذا الكود للبحث عن كلمة في التكست

أخي GHOST2010

لا أدري ماذا أقول يعجز اللسان عن الشكر والامتنان

الكود 100 بالـــ 100 صح ونفذ وكل شي تمام

ربي يسعدك ويوفقك ويزيدك من علمه

دعواتي الخالصة لك

ودمت ذخراً للمنتدى

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

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

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

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

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