[jalaltech]

السلام عليكم ... رمضان كريم وكل عام والجميع بالف خير ... انا مبتدأ بالفيجوال بيسك واقوم بعمل برنامج خاص لي في عملي وارغب في عمل زر لمسح مربعات النصوص لكن تظهر رسالة خطأ وتحولني الى كود مربع النتيجة مع العلم جربت اكثر من طريقة ؟؟؟؟؟!!!!!!!

كود زر النتيجة

كود :

Private Sub TextBox2_Change()
T1 = TextBox1.Text
T2 = TextBox2.Text

TextBox3.Text = ((1 / TextBox1) * TextBox2)

End Sub

وكود زر المسح للنصوص 

كود :

Private Sub CommandButton3_Click()


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

End Sub

[عبدالله الصافي]

انت تستخدم vb6
ام vb.net

[jalaltech]

vb6 بسبب نوع البرنامج في عملي

[sendbad100]

السلام عليكم

ضع المثال 

[السيد الغالي]

استخدم  هذا الكود وسيعمل بدون اخطاء

كود :

Private Sub Text2_Change()
On Error Resume Next
T1 = Val(Text1.Text)
T2 = Val(Text2.Text)
Text3 = ((1 / T1) * T2)
End Sub

اما بخصوص كود مسح النصوص استخدم الكود التالي

كود :

Text1 = ""
Text2 = ""
Text3 = ""

[jalaltech]

الف شكر على التجاوب اخوتي الاكارم .... مع العلم جربت اكواد اخي -السيد الغالي - ولم تنجح وهذا فيديو يوضح المشكلة ..... ا واعتذر عن الرفع على موقع اخر لاني لم اعرف كيف افعل ذلك في المنتدى 

https://mega.nz/#!hGRBGIQC!ianPMPrcS5ZCE...ntShu4fa_s

[السيد الغالي]

الاخ العزيز السلام عليكم
الكود السابق الذي كتبته سابقا خاص بالفيجوال بيسك 6 
استخدم الكود التالي بالدوت نت 

كود :

 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        

        TextBox3.Text = ((1 / Val(TextBox1.Text)) * Val(TextBox2.Text))
    End Sub

ولمسح محتويات النصوص استخدم الكود التالي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = ""
       TextBox2.Text = ""
       TextBox3.Text = ""

   End Sub

استخدمهما معا وان شاء الله لاتحدث عندك مشكلة اذا كنت تستخدم الدوت نت

[jalaltech]

الف الف شكر لك اخي الكريم .... حلت على الدوت نت لكن هلا شرحت لي ما هو val

[السيد الغالي]

اخي العزيز 
يبدو انك تستخدم الفيجوال الملحق مع الاكسس ! اليس كذلك ؟ 
لذا تاكد فقط من الاسماء 
اما بخصوص val هي دالة في الفيجوال بيسك تتعامل مع البيانات النصية كأنها بيانات رقيمة (عددية)