[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