آمل ان يعجبكم المثال
معذرة على الخطا الاملائي بالصورة او البرنامج!
التعديل ليكون هكذا
PHP كود :
ln.Caption = Split(tn, ";")(0)
ls.Caption = Split(tn, ";")(1)
فيه قصور في البرنامج .....ساعمل على تعديله قريبا ان شاء الله.
القصور هو لو تكتب رقم او حرف يجلب آخر نتيجة في المصفوفة.
التعديل بسيط
PHP كود :
If Text1.Text <> Split(tn, ";")(0) And Text1.Text <> Split(tn, ";")(1) Then
MsgBox "النص لا يوجد", vbCritical, "خطأ"
Exit Sub
End If
توضع قبل الاسناد لـ ln و ls