[dr.mostashar]

السلام عليكم



أحبتي المبرمجين 



لدي على الفورم مربعين نص text1 و text2 



أرغب عندما أكتب في ال text1 جملة معينة , يقوم الكود باستخراج كلمات أقوم بتحديدها له مسبقا من النص الموجود في text1 ويضعها في text2



وشكرا لكم 

[elgokr]

تفضل اخى 

  السورس + برنامج الاختبار بالمرفقات

الكود بالسورس سيقوم بعمل البحث على النص

واذا تم ايجاد النص سيتم تظليله فى textbox1 وسيتم نسخ جملة البحث فى textbox2

تحياتى لك

وتمنياتى لك التوفيق

[dr.mostashar]

(15-07-18, 08:45 PM)elgokr كتب :

تفضل اخى الكود

سيقوم بعمل البحث على النص

واذا تم ايجاد النص سيتم تظليله فى textbox1 وسيتم نسخ جملة البحث فى textbox2

كود :

       Dim xx As String
       xx = InputBox("ادخل النص المطلوب البحث عنه:")
       Dim a As Integer
       a = InStr(1, LCase$(TextBox1.Text), LCase$(xx))
       If a > 0 Then
           TextBox1.SetFocus()
           TextBox1.SelStart = a - 1
           TextBox1.SelLength = Len(xx)
           TextBox2.Text = xx
       Else
           MsgBox("لم يتم ايجاد النص المطلوب.")
       End If

تحياتى لك

وتمنياتى لك التوفيق

أشكرك من أعماق قلبي

[elgokr]

الشكر لله

وتم عمل سورس + برنامج

يحتوي على الكود كاملاً تجنباً من اى اخطاء

تحياتى لك

وتمنياتى لك التوفيق