منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] التحقق من وجود نص فى التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] التحقق من وجود نص فى التكست بوكس (/showthread.php?tid=14905)

الصفحات: 1 2 3

RE: التحقق من وجود نص فى التكست بوكس - norhan - 29-02-16

(28-02-16, 01:10 AM)administrator كتب : غداً ان شاء الله نكمل



وارجو توضيح التقطه الأخيره
هل المقصود جعل التيكست لا يقبل الا نصوص فقط
نعم اقصد اذا كنت اريد ان اساوى مربع النص بقيمه نصيه مثل text1.text = نص ما   اياً كان هذا النص 
ثانيا اذا كنت اريد الا يكتب فيه الا نص فقط
وشكرا لك

RE: التحقق من وجود نص فى التكست بوكس - administrator - 29-02-16

(29-02-16, 12:44 AM)norhan كتب :
(28-02-16, 01:10 AM)administrator كتب : غداً ان شاء الله نكمل



وارجو توضيح التقطه الأخيره
هل المقصود جعل التيكست لا يقبل الا نصوص فقط
نعم اقصد اذا كنت اريد ان اساوى مربع النص بقيمه نصيه مثل text1.text = نص ما   اياً كان هذا النص 
ثانيا اذا كنت اريد الا يكتب فيه الا نص فقط
وشكرا لك

بالنسبة لمساوة مربع النص بقيمة نصيه

PHP كود :
text1.text= text2.text
'أو
text1.text= "norhan" 

أما كتابة نص فقط فهنا مثال للارقام <<< تعديل بسيط

http://vb4arb.com/vb/thread-14867-post-71063.html#pid71063

RE: التحقق من وجود نص فى التكست بوكس - norhan - 29-02-16

شكرا للرد ولكن عندى استفسار اخر  جمعت مجموعه  من التكست بوكس

........(text1.text = val (text2.text) + val (text3.text

اريد ضرب text1.text * 20  ولكن لايعطينى اى شىء او يحدد بلون اصفر على الكود فما الخطاء هنا

RE: التحقق من وجود نص فى التكست بوكس - administrator - 29-02-16

(29-02-16, 01:17 AM)norhan كتب :
شكرا للرد ولكن عندى استفسار اخر  جمعت مجموعه  من التكست بوكس

........(text1.text = val (text2.text) + val (text3.text

اريد ضرب text1.text * 20  ولكن لايعطينى اى شىء او يحدد بلون اصفر على الكود فما الخطاء هنا

لم اجربه لاني ارد من. الجوال

Text1.text = val ( val ( text2.text) + val ( text3.text) * 20)

RE: التحقق من وجود نص فى التكست بوكس - ahmedabdelaliem - 29-02-16

بعد اذن اخي administrator


هذا الكود للعملية الحسابية


PHP كود :
Text1.Text = (Val(Text2.Text) + Val(Text3.Text)) * 20 

بالتوفيق

RE: التحقق من وجود نص فى التكست بوكس - norhan - 29-02-16

(29-02-16, 03:24 AM)ahmedabdelaliem كتب : بعد اذن اخي administrator


هذا الكود للعملية الحسابية


PHP كود :
Text1.Text = (Val(Text2.Text) + Val(Text3.Text)) * 20 

بالتوفيق

شكرا للرد ولكن فيه مشكله فى البرنامج ده وانا مش عارف فين الخطاء اثناء عمليه الجمع لان فيه تكست بوكس لايعطى قيمه الجمع المناسبه وسوف ارسله فى المرفقات

RE: التحقق من وجود نص فى التكست بوكس - ahmedabdelaliem - 29-02-16

تمام

ارسلي المرفقات

RE: التحقق من وجود نص فى التكست بوكس - Omar 6.0 - 29-02-16

إذا كان قصدك عدم قبول إلا النصوص فاكتب الشيفرة الأتية في الحدث  Text1_Change
كود :
    If IsNumeric(Text1.text) = True Then
            MsgBox "You must enter a name, no numbers!"
End If


RE: التحقق من وجود نص فى التكست بوكس - norhan - 29-02-16

[attachment=9621 كتب :Omar 6.0 pid='71435' dateline='1456771682']إذا كان قصدك عدم قبول إلا النصوص فاكتب الشيفرة الأتية في الحدث  Text1_Change
كود :
    If IsNumeric(Text1.text) = True Then
            MsgBox "You must enter a name, no numbers!"
End If

هذا هو الملف[attachment=9621]
هل اكتشف احد ما المشكله فى هذا المثال

RE: التحقق من وجود نص فى التكست بوكس - administrator - 29-02-16

اتمنى يكون هذا هو الطلب

اذا كان القصد هو جمع جميع الحقول ومن ثم ضرب قيمتها بـ 20