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

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

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

كود :

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

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

السلام عليكم

ضع المثال

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

كود :

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 = ""

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

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

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

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

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

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

jalaltech

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

jalaltech

sendbad100

السيد الغالي

jalaltech

السيد الغالي

jalaltech

السيد الغالي