06-12-19, 03:28 PM
السلام عليكم قمت بكتابة الكود في الاسفل في حدث Keypress لمنع كتابة الاحرف وكتابة الارقام فقط مثل 3.6 وتمت العملية بنجاح ولكني اريد عمل Module من هذا الكود لاستخدامه في حوالي 30 فورم دون ان اقوم بكتابة الكود بشكل متكرر واستدعائة من ال Module
If e.KeyChar = "0" Or e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" Or e.KeyChar = "9" Or e.KeyChar = "." Or e.KeyChar = "" Then
Exit Sub
Else
e.KeyChar = ""
End If
End Sub