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

نسخة كاملة : التحقق من وجود نص فى التكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
(28-02-16, 01:10 AM)administrator كتب : [ -> ]غداً ان شاء الله نكمل



وارجو توضيح التقطه الأخيره
هل المقصود جعل التيكست لا يقبل الا نصوص فقط
نعم اقصد اذا كنت اريد ان اساوى مربع النص بقيمه نصيه مثل text1.text = نص ما   اياً كان هذا النص 
ثانيا اذا كنت اريد الا يكتب فيه الا نص فقط
وشكرا لك
(29-02-16, 12:44 AM)norhan كتب : [ -> ]
(28-02-16, 01:10 AM)administrator كتب : [ -> ]غداً ان شاء الله نكمل



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

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

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

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

http://vb4arb.com/vb/thread-14867-post-7...l#pid71063
شكرا للرد ولكن عندى استفسار اخر  جمعت مجموعه  من التكست بوكس

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

اريد ضرب text1.text * 20  ولكن لايعطينى اى شىء او يحدد بلون اصفر على الكود فما الخطاء هنا
(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)
بعد اذن اخي administrator


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


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

بالتوفيق
(29-02-16, 03:24 AM)ahmedabdelaliem كتب : [ -> ]بعد اذن اخي administrator


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


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

بالتوفيق

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

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

هل اكتشف احد ما المشكله فى هذا المثال
اتمنى يكون هذا هو الطلب

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