السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اجعل text يقبل الرقم فقط ؟؟
نامل من الله ثم منكم سرعة المساعدة
والله يحفظكم ويرعاكم
كيف اجعل text يقبل الرقم فقط ؟؟
Public Function Validnumeric(ByVal mKeyascii As Long) As Long
If Not (IsNumeric(Chr(mKeyascii)) Or mKeyascii = 8) Then
Validnumeric = 0
Else
Validnumeric = mKeyascii
End If
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Validnumeric(KeyAscii)
End Sub
الف شكر لك استاذي
جرب هذا الكود اخي
If Not IsNumeric(Text1.Text) Then
SendKeys ("{BS}")
Beep
End Ifالعلم علمان : علم باللسان ، وعلم بالقلب
فعلم القلب : هو العلم النافع
وعلم اللسان : هو حجة الله على ابن آدم
انا شخصيا افضل الكود التالى
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim SS As String
If KeyAscii = 8 Then Exit Sub
SS = "0123456789."
i = InStr(SS, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub
الأفكار العبقرية تأتي بالتعب و المجهود و الإلهام فيها لا يتعدى 1% ( أديسون )