[waelalmsry75]

السلام عليكم
الإخوة الكرام
لدي تيكست به نص غير مشكول
وتيكست آخر به (نفس النص) لكنه مشكول
أريد عند تحديد كلمة في التيكست الأول (غير المشكول) والضغط على زر بحث
يتم البحث في التيكست الثاني (المشكول) وتحديد نتيجة البحث
وجزاكم الله خيرا

* حاولت أكثر من مرة إرفاق صور لكنها تظهر على شكل رموز

[معاند الحظ]

اخي استخدم الكود التالي 
فهو يقوم بنسخ النص الموجود في تكستبوكس التشكيل ويحفظه في متغير
ثم يقوم بازالة التشكيل من هذا النص 
ثم يقارن بين النصين ويعرض النتيجة

كود :

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'انسخ النص المشكل الى هذا المتغير
        Dim str = txt1.Text

        ' to be replaced characters
        Dim tashkeel = New Char() {"ِ"c, "ُ"c, "ٓ"c, "ٰ"c, "ْ"c, "ٌ"c, "ٍ"c, "ً"c, "ّ"c, "َ"c}

        'الان قم بازالة التشكيل من النص المنسوخ

        For Each c In tashkeel
            str = str.Replace(c.ToString(), "")
        Next

        'الان قم بالمقارنة  
        If str = txt2.Text Then
            MsgBox("found")
        Else
            MsgBox("not found")

        End If

    End Sub

[أبو خالد الشكري]

بعد إذن الأخ  معاند الحظ

قمت بوضع الكود في مشروع بسيط جدا مع التعديل البسيط .

وشكرا .