[ahmed3d]

بسم الله الرحمن الرحيم




ارجو الاجابة عن هذه الاسئلة و لكم جزيل الشكر (ارجو توضيح و شرح الاكواد اذا امكن)....

1- جملة شرطية انو اذا كانفي التكست بكوس رقم يظهرلي رسالة خطا


2- ان يقول المستخدم بتعين احرف او رموز معينة داخل اكثر من تكست بكوس و البرنامج يجيب الحروف الي بين هذه الحروف يعني مثلا :
الحروف w و e
و النص المكتوب (eduwave)
و بعد الضغط على الزر يظهر (du) ..

---

اسف خطأ املائي بدل يقول لازم يقوم

[VB_Coder]

السلام عليكم

- الجواب - 1) :-

كود :

If IsNumeric(Trim$(Text1.Text)) = True Then
   MsgBox "خطأ"
End If

- الجواب - 2) :-

كود :

Dim zStr As String

zStr = Trim$(Text1.Text)
zStr = Mid$(zStr, InStr(1, zStr, "e") + 1)
zStr = Left$(zStr, InStr(1, zStr, "w") - 1)
Text1.Text = zStr

- تحياتي .

[ahmed3d]

تسلم دائما متألق