منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

السلام عليكم

- الجواب - 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

VB_Coder

ahmed3d