تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار هام جدا
#1
Exclamation 
السلام عليكم ... رمضان كريم وكل عام والجميع بالف خير ... انا مبتدأ بالفيجوال بيسك واقوم بعمل برنامج خاص لي في عملي وارغب في عمل زر لمسح مربعات النصوص لكن تظهر رسالة خطأ وتحولني الى كود مربع النتيجة مع العلم جربت اكثر من طريقة ؟؟؟؟؟!!!!!!!

كود زر النتيجة
كود :
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
الرد
تم الشكر بواسطة:
#2
انت تستخدم vb6
ام vb.net
الرد
تم الشكر بواسطة:
#3
vb6 بسبب نوع البرنامج في عملي
الرد
تم الشكر بواسطة:
#4
السلام عليكم

ضع المثال 
الرد
تم الشكر بواسطة: السيد الغالي
#5
استخدم  هذا الكود وسيعمل بدون اخطاء
كود :
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 = ""
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
#6
الف شكر على التجاوب اخوتي الاكارم .... مع العلم جربت اكواد اخي -السيد الغالي - ولم تنجح وهذا فيديو يوضح المشكلة ..... ا واعتذر عن الرفع على موقع اخر لاني لم اعرف كيف افعل ذلك في المنتدى 

https://mega.nz/#!hGRBGIQC!ianPMPrcS5ZCE...ntShu4fa_s
الرد
تم الشكر بواسطة:
#7
الاخ العزيز السلام عليكم
الكود السابق الذي كتبته سابقا خاص بالفيجوال بيسك 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

استخدمهما معا وان شاء الله لاتحدث عندك مشكلة اذا كنت تستخدم الدوت نت
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
تم الشكر بواسطة:
#8
الف الف شكر لك اخي الكريم .... حلت على الدوت نت لكن هلا شرحت لي ما هو val
الرد
تم الشكر بواسطة:
#9
اخي العزيز 
يبدو انك تستخدم الفيجوال الملحق مع الاكسس ! اليس كذلك ؟ 
لذا تاكد فقط من الاسماء 
اما بخصوص val هي دالة في الفيجوال بيسك تتعامل مع البيانات النصية كأنها بيانات رقيمة (عددية)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم