[بلدي]

(09-08-20, 08:31 PM)paveldida كتب :

السلام علكيم

ممكن من الإخوة الكرام شرح الكود التالي

كود :

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

Select Case e.KeyChar
           Case ChrW(8)

           Case ChrW(46)
               e.KeyChar = ChrW(44)
           Case ChrW(44), ChrW(48) To ChrW(58)
           Case Else
               e.KeyChar = ChrW(0)
               Beep()
       End Select

لما استخدمت الكود وجدت انه بيبدل الفاصله الرقميه الحقيقيه بفاصله اخرى لا تصلح للعمليات الحسابيه فسببت عندي نتيجه خطا

ممكن اعرف السبب منشان استفيد؟