ما هو كود كتابة ارقام فقط في خانة النص

هذا الكود مكتوب بالفيجوال بيزيك دوت نيت 2003

	Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
		If (InStr("0123456789", e.KeyChar) = 0) Then e.Handled = True
	End Sub

أخي حاولت تجريب الكود مع فيجول 2005 ولكنه فشل أرجو توضيح الكود أفضل

الطلب مرة أخري

أني عندما يكتب المستخدم في خانة نص ارقام لا يكتب شيئ ويعطي رسالة تقول له أدخل أرقام من فضلك

جرب الشفرة التالية :

في حدث KeyPress الخاص بأداة بإسم TextBox1

If Not IsNumeric(e.KeyChar) Then
			  msgbox "Please, Enter The Number"
			  e.Handled=False
End If

بالتوفيق ,,

و لمادا لا تعوض TextBox ب MaskedTextBox و تحدد ال Mask الدي تريده كما يمكنك من إنشاء Mask خاص بك ....

أشكركما أخواتي mqmmss و Fikou-sama فقد تم الحل بس أرجو شرح الكود الخاص بالأخ mqmmss

وارجو من الأخ Fikou-sama ارجو شرح عملية الماسك للتيكست بوكس بوضوح

اختر العنصر MaskedTextBox من نافدة الادوات ... و من نافدة الخصائص اختر Mask الدي تريده فهناك القناع الخاص برقم الهاتف و قناع التاريخ و قناع code postal .. وأقنعة أخرى

بالتوفيق

الحل سهل جدا لمنع المستخدم ان يكتب اي حرف

وذك....

في حدث التغيير في التيكست بوكس

يعني دبل كليك على التيكست وضع فيه هذا الكود

 If IsNumeric(TextBox1.Text) = False Then
			TextBox1.Text = ""
		End If

اعتقد ان حل الاخوة صحيح ولكن يوجد ايضاً حدث تابع للــ Textbox وهو الحدث في الكود الاتي

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
		If IsNumeric(TextBox1.Text) = False Then
			  e.Cancel = True
				   End If

اتعقد ان هنا الطريقة تختلف ..

أنا أستخدم هذا الإجراء

Public Function AllowNumberOnly(ByVal Key As String) As Boolean
		If (Key >= 48 And Key <= 57) Or Key = 8 Then
			AllowNumberOnly = False
		Else
			AllowNumberOnly = True
		End If
	End Function

و في حدث KeyPress

If AllowNumberOnly(Asc(e.KeyChar)) = True Then
			e.Handled = True
		Else
			e.Handled = False
		End If

والله الموفق