+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] عدة اسئلة عن النصوص (/showthread.php?tid=1406)
عدة اسئلة عن النصوص - ahmed3d - 31-12-13
بسم الله الرحمن الرحيم
ارجو الاجابة عن هذه الاسئلة و لكم جزيل الشكر (ارجو توضيح و شرح الاكواد اذا امكن)....
1- جملة شرطية انو اذا كانفي التكست بكوس رقم يظهرلي رسالة خطا
2- ان يقول المستخدم بتعين احرف او رموز معينة داخل اكثر من تكست بكوس و البرنامج يجيب الحروف الي بين هذه الحروف يعني مثلا :
الحروف w و e
و النص المكتوب (eduwave)
و بعد الضغط على الزر يظهر (du) ..
اسف خطأ املائي بدل يقول لازم يقوم
RE: عدة اسئلة عن النصوص - VB_Coder - 31-12-13
السلام عليكم
- الجواب - 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- تحياتي .
RE: عدة اسئلة عن النصوص - ahmed3d - 02-01-14
تسلم دائما متألق