أريد كود التعامل مع الأخطاء

اقتباس

أريد الكود الذي يجعل الTextBox يقبل أرقام فقط دون أحرف مع أخذ ال(.) النقطة بعين الاعتبار.مثلا كنا نكتب في vb6

فى حدث keypress لل textbox اكتب هذا الكود

if isnumeric(e.keychar) orelse e.keychar=chr(9) then
else
e.handled=true
endif]

بسم الله الرحمن الرحيم

اليك هذه الهدية

و هي مكتبة تمكنك من احتبار القيم التي تريدها

اذا كانت ارقام ام حروف ام .......

ارجو ان تستفيد بها

ملحوظة:-

- للاسف لا استطيع وضع الكود لانه بالسي شارب

- مرفق مع المكتبة ملف لشرح كيفية التعامل معها و كمان برنامج لتجربة المكتبة

سلام

TestData.rar

أخي الكريم SOLO.NET شكرا لوقوفك بجانبي دائما

الكود الأول صحيح و لكن فيه مشكلة بأنه لا يسمح بإدخال النقطة (.) لأنها مهمة في الحسابات ..هو الحقيقية لو أنا فهمت الكود كنت حاولت أعدله و لكني لم أفهمه جيدا ..^.^

بالنسبة للتعامل مع الأخطاء صحيح أيضا و كتبت الكود بالشكل :

Try

TextBox2.Text = TextBox1.Text * 10

Catch ex As Exception

MsgBox("Eias")

Finally

Me.Refresh()

End Try

و لكن الذي لم أفهمه هو لماذا وجدت ثلاث مراحل و ما الفرق بين المرحلة الثانية و الثالثة وهل ex اسم اختياري..

أخي الكريم Ingm شكرا لك و للبرنامج و لكن الحقيقة أنا لم أفهم بالضبط ما الذي يقوم به كل ما أعطاني إياه هو False ممكن توضيح.

و شكرا لكم

إيـاس

اقتباس

و لكن الذي لم أفهمه هو لماذا وجدت ثلاث مراحل و ما الفرق بين المرحلة الثانية و الثالثة وهل ex اسم اختياري..

المرحلة الثانية تنفذ فقط فى حالة حدوث خطاء والمرحلة الثالثة تنفذ فى جميع الاحوال يعنى سواء حدث خطاء او لم يخدث وهذه المرحلة اختيارية تقدر تستغنى عنها

ex اسم اختيارى

بالنسبة للكود الاول تاكد من وضع كود النقطة انا وضعه 9 ولكنى لا ادى هل هو خاص بالنقطة ام لا ولكن للتوضيح

لديك ايضا الدالة keys التى تعطيك المفاتيح

بسم الله الرحمن الرحيم

طيب ما رايك في الصور دي ؟؟؟؟

B)

يعني كل ما عليك اذا اردت استخدام البرنامج هو ان تضع ما تريد اختباره ثم تختار نوع الاختبار ثم ابدا

اما المكتبه فالملف النصي يشرح بوضوح كيفية الاستخدام

عموما هذه المكتبة استعملها كثيرا في برامجي فهي موثوق فيها

و تعمل معي بدون مشاكل

سلام

شكرا أخي الكريم SOLO.NET توضيح جميل بالفعل ..أنا فهمت من قصدك أنك لا تعرف رمز الAsciالخاص برمز . ليس مشكلة سأبحث عنه ..يعني سأبدل ال9 برقم رمز النقطة وأنا عدلت الكود بحيث يسمح بالنقطة و الBackSpace فأصبح:

If IsNumeric(e.KeyChar) OrElse e.KeyChar = Chr(46) OrElse e.KeyChar = Chr(8) Then

Else

e.Handled = True

End If

شكرا أخي الكريم Ingm الآن توضحت لي طبيعة هذا البرنامج..

إيـاس