(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.text= text2.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