اجبار المسخدم بإدخار أرقام

If IsNumeric(TextBox1.Text) = False Then

TextBox1.Text = ""

Exit Sub

End If

ابحث في المنتدى وستجد الكثير من المواضيع فيها ما تريد ..

ويمكنك الاستفاده من الدرس الذي كتبته بعنوان درس في الإجراءات الفرعية ( في توقيعي ) ويوجد به ما تريد ..

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

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

		Dim ch As Char
		ch = e.KeyChar
		If ch.IsDigit(ch) = True Or ch.GetHashCode = 524296 Then
			e.Handled = False
		Else
			e.Handled = True
		End If

End Sub

يوجد أدوات جاهزة لعمل فلاتر بدون أي كود وبأي شكل تريد :)

السلام عليكم

يمكنك مراجعة هذا الرابط

/index.ph...=106871&hl=