سؤال في كيفية وضع قيمة محددة للتكست بوكس

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

لتحديد عدد المدخلات أستعمل الخاصية MaxLenght و للسماح بالأرقام فقط ضع الكود التالى بحدث الـ KeyPress للـ TextBox المطلوب :

Select Case KeyAscii
	Case Is < 32			   ' Control keys are OK.
	Case 48 To 57			  ' This is a digit.
	Case Else				  ' Reject any other key.
		KeyAscii = 0
End Select

و الموضوع ذكر قبل كده كتير بالمنتدى , تذكر البحث قبل السؤال و شكرا.

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

مشكور يا أخي وما قصؤت وأنا آسف لنسياني عن البحث في المنتدى عن الجواب ولكنك يا أي أغفلت نقطة ألا وهي تحديد عدد معين من الأرقام فأنا أريد أن يدخل المستخدم 10 أرقام لا تزيد ولا تنقص وإذا نقصت يخبرك برسالة.

وآسف إذا كنت طولت عليك أو أزعجتك أخي الكريم وشكرا....

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) < 10 Then
		Select Case KeyAscii
			Case Is < 32
			Case 48 To 57
			Case Else
				KeyAscii = 0
		End Select
	Else
		KeyAscii = 0
		MsgBox "No more"
End If
End Sub

برده مع خاصية الـ MaxLength علشان تبقى ضامن نفسك و بعدين الأحسن هو أنك تتأكد عند تحليل محتوى الـ Textbox و ليس أثناء الأدخال.

مشكور أخي العزيز والطريقة كانت ناجحة يعني تمام

الأخ الفاضل ...

جرب أستخدام التالى:

Private Sub Form_Load()
	Text1.MaxLength = 10
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii >= 32 And _
		(KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then
			KeyAscii = 0
	End If
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
	If Len(Text1.Text) <> Text1.MaxLength Then Cancel = True
End Sub

أو

Private Sub Form_Load()
	Text1.MaxLength = 10
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
	If Len(Text1.Text) <> Text1.MaxLength Then
		Cancel = True
	Else
		Dim n As Integer
		Dim ch As String

		For n = 1 To Text1.MaxLength
			ch = Mid$(Text1.Text, n, 1)
			If Asc(ch) < Asc("0") Or Asc(ch) > Asc("9") Then
				Cancel = True
				Exit For
			End If
		Next n
	End If
End Sub

بقرض أنه توجد أداة كتاية (TextBox) على الفورم اسمها Text1

شكراً