العلامات العشرية

علي الرغم من اني ممكن مقدرش أجاوبك بس عاوز أفهم السؤال.....!!!!!!

السلام عليكم و رحمة الله و بركاته

سأرفق لك مثال يقوم بالذي طلبته و إن شاء الله نكون قد اجبنا على طلبك

المثال يقوم بالسماح بخانتين عشريتين فقط و إذا أردت زيادة الخانات العشرية فما عليك إلا أن تغير الرقم 3 الموجود في الحدث TextChanged حيث أنه إذا أردت خانتين تكتب 3 و إذا أردت 3 تكتب 4 و هكذا و سيقوم البرنامج بالباقي إن شاء الله.

م.أحمد بوجلاوي

FloatingNum.rar

اخى العزيز

توجد مشكلة اننى اردت ان اضيف رقم صحيح لااقدر

مثلا 2.25 مثلا كتبتها خطا اريد ان اكتبها 12.25

لازم امسحة من الاول و اكتبة تانى

اريد حل

اريد حل

السلام عليكم و رحمة الله و بركاته

عذراً للتأخير...

الكود التالي إن شاء الله سيقوم بالذي تريده، و فقنا الله و إياك.

Private Sub Txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt.KeyPress

If Not IsNumeric(e.KeyChar) And e.KeyChar <> "." And Asc(e.KeyChar) <> 8 Then

e.Handled = True

ElseIf Txt.Text.IndexOf(".") > -1 And e.KeyChar = "." Then

e.Handled = True

End If

If Txt.Text.IndexOf(".") > -1 AndAlso Txt.SelectionStart > Txt.Text.IndexOf(".") AndAlso

(Len (Txt.Text) - Txt.Text.IndexOf(".") > 2) Then

If Asc(e.KeyChar) <> 8 Then e.Handled = True

End If

End Sub

جزاك الله خيرا