كيف اجعل خانة text لا تقبل الا ارقام

وعليكم السلام ورحمة الله وبركانة

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

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

End Sub

:D السلام عليكم ورحمة الله وبركاته :D

:) تفضلي الاخت العزيزة هذا كود اخر لمنع كتابة حروف او اي علامات غير ارقام بس مع الاخذ في الاعتبار انه يسمح بمفتاح BackSpace فقط ... :lol:

Private Sub Text1_KeyPress(KeyAscii As Integer)


   If KeyAscii = vbKeyBack Then 'Allow the Backspace key
		Exit Sub

   Else

		If KeyAscii < 48 Or KeyAscii > 57 Then 'Numbers only
			KeyAscii = 0

	 End If

	End If

End Sub

:blink: للمراسلة عبر البريد الالكتروني :-

Stren2001_1@hotmail.com

Mido_Bah_Net@yahoo.com

Mido_SoFt_3DGraphic@Gawab.com

:D و السلام عليكم ورحمة الله وبركاته :D

السلام عليكم ورحمة الله وبركاتة

1- هذا الكود لكتابة الارقام فقط

Private Sub Text4_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 8
Case Else
KeyAscii = 0
End Select
End Sub

وهذا الكود لكتابة النص فقط

Select Case KeyAscii
Case 48 To 57
KeyAscii = 0
End Select

سيتم اغلاق هذا الموضوع للتكرار

/index.php?showtopic=98307