[norhan]

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



وارجو توضيح التقطه الأخيره
هل المقصود جعل التيكست لا يقبل الا نصوص فقط

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

[administrator]

(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-7...l#pid71063

[norhan]

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

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

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

[administrator]

(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)

[ahmedabdelaliem]

بعد اذن اخي administrator


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

PHP كود :

Text1.Text = (Val(Text2.Text) + Val(Text3.Text)) * 20 


بالتوفيق

[norhan]

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


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

PHP كود :

Text1.Text = (Val(Text2.Text) + Val(Text3.Text)) * 20 


بالتوفيق

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

[ahmedabdelaliem]

تمام

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

[Omar 6.0]

إذا كان قصدك عدم قبول إلا النصوص فاكتب الشيفرة الأتية في الحدث  Text1_Change

كود :

    If IsNumeric(Text1.text) = True Then
            MsgBox "You must enter a name, no numbers!"
End If

[norhan]

[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

هذا هو الملف
  اختبار.rar (الحجم : 1.59 ك ب / التحميلات : 31)

---

هل اكتشف احد ما المشكله فى هذا المثال

[administrator]

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

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