09-08-20, 08:31 PM
السلام علكيم
ممكن من الإخوة الكرام شرح الكود التالي
كود :
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